xlen Function

  1. util.f90
  2. xlen

function xlen(a, x, n)

Arguments

Type IntentOptional AttributesName
real :: a
real :: x
integer :: n

Return Value real


Called by

proc~~xlen~~CalledByGraph proc~xlen xlen proc~tfbsub~3 tfbsub proc~tfbsub~3->proc~xlen proc~eptsol eptsol proc~eptsol->proc~xlen proc~pivot~3 pivot proc~pivot~3->proc~xlen proc~updatese updateSE proc~updatese->proc~eptsol

Contents

Source Code

xlen

Source Code

      function xlen(a,x,n)
      implicit double precision (a-h,o-z)
      dimension x(*)
      xlen=a
      do i=1,n
        xlen=xlen+x(i)**2
      end do
      xlen=sqrt(xlen)
      end function xlen