Parent Directory | Revision Log
Initial import
1 | guez | 3 | ! |
2 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismax.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $ | ||
3 | ! | ||
4 | function ismax(n,sx,incx) | ||
5 | c | ||
6 | IMPLICIT NONE | ||
7 | c | ||
8 | INTEGER n,i,incx,ismax,ix | ||
9 | real sx((n-1)*incx+1),sxmax | ||
10 | c | ||
11 | ix=1 | ||
12 | ismax=1 | ||
13 | sxmax=sx(1) | ||
14 | do 10 i=1,n-1 | ||
15 | ix=ix+incx | ||
16 | if(sx(ix).gt.sxmax) then | ||
17 | sxmax=sx(ix) | ||
18 | ismax=i+1 | ||
19 | endif | ||
20 | 10 continue | ||
21 | c | ||
22 | return | ||
23 | end | ||
24 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |