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