linf Subroutine

  1. util.f90
  2. linf

subroutine linf(n, x, z, iz)

Arguments

Type IntentOptional AttributesName
integer :: n
real :: x
real :: z
integer :: iz

Called by

proc~~linf~~CalledByGraph proc~linf linf proc~warm_start warm_start proc~warm_start->proc~linf

Contents

Source Code

linf

Source Code

      subroutine linf(n,x,z,iz)
      implicit double precision (a-h,o-z)
      dimension x(*)
      z=0.D0
      do i=1,n
        a=abs(x(i))
        if (a>z) then
          z=a
          iz=i
        end if
      end do
      end subroutine linf