Sources/dyn3d/ismax.f


! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismax.F,v 1.1.1.1 2004/05/19
! 12:53:07 lmdzadmin Exp $

FUNCTION ismax(n, sx, incx)

  IMPLICIT NONE

  INTEGER n, i, incx, ismax, ix
  REAL sx((n-1)*incx+1), sxmax

  ix = 1
  ismax = 1
  sxmax = sx(1)
  DO i = 1, n - 1
    ix = ix + incx
    IF (sx(ix)>sxmax) THEN
      sxmax = sx(ix)
      ismax = i + 1
    END IF
  END DO

  RETURN
END FUNCTION ismax

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