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