libf/dyn3d/ismin.f

!
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismin.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
!
      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
1	!
2	! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismin.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
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