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