trunk/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	guez	3	!
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