My Project
 All Classes Files Functions Variables Macros
ismin.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  FUNCTION ismin(n,sx,incx)
5 c
6  IMPLICIT NONE
7 c
8  integer n,i,incx,ismin,ix
9  real sx((n-1)*incx+1),sxmin
10 c
11  ix=1
12  ismin=1
13  sxmin=sx(1)
14  DO i=1,n-1
15  ix=ix+incx
16  if(sx(ix).lt.sxmin) then
17  sxmin=sx(ix)
18  ismin=i+1
19  endif
20  ENDDO
21 c
22  return
23  end
24 C