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
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