doxy_201512/html/ismin_8_f_source.html

 !

 ! $Header$

 !

       FUNCTION ismin(n,sx,incx)

 c

       IMPLICIT NONE

 c

       integer n,i,incx,ismin,ix

       real sx((n-1)*incx+1),sxmin

 c

       ix=1

       ismin=1

       sxmin=sx(1)

       DO i=1,n-1

          ix=ix+incx

          if(sx(ix).lt.sxmin) then

              sxmin=sx(ix)

              ismin=i+1

          endif

       ENDDO

 c

       return

       end

 C

ismin
integer function ismin(n, sx, incx)
Definition: ismin.F:5