/[lmdze]/trunk/Sources/dyn3d/ismax.f
ViewVC logotype

Contents of /trunk/Sources/dyn3d/ismax.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 134 - (show annotations)
Wed Apr 29 15:47:56 2015 UTC (8 years, 11 months ago) by guez
File size: 402 byte(s)
Sources inside, compilation outside.
1
2 ! $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

  ViewVC Help
Powered by ViewVC 1.1.21