Sources/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)

  IMPLICIT NONE

  INTEGER n, i, incx, ismin, ix
  REAL sx((n-1)*incx+1), sxmin

  ix = 1
  ismin = 1
  sxmin = sx(1)
  DO i = 1, n - 1
    ix = ix + incx
    IF (sx(ix)<sxmin) THEN
      sxmin = sx(ix)
      ismin = i + 1
    END IF
  END DO

  RETURN
END FUNCTION ismin

1	guez	81
2			! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismin.F,v 1.1.1.1 2004/05/19
3			! 12:53:07 lmdzadmin Exp $
4
5			FUNCTION ismin(n, sx, incx)
6
7			IMPLICIT NONE
8
9			INTEGER n, i, incx, ismin, ix
10			REAL sx((n-1)*incx+1), sxmin
11
12			ix = 1
13			ismin = 1
14			sxmin = sx(1)
15			DO i = 1, n - 1
16			ix = ix + incx
17			IF (sx(ix)<sxmin) THEN
18			sxmin = sx(ix)
19			ismin = i + 1
20			END IF
21			END DO
22
23			RETURN
24			END FUNCTION ismin
25