/[lmdze]/trunk/dyn3d/ismin.f
ViewVC logotype

Diff of /trunk/dyn3d/ismin.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/dyn3d/ismin.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/ismin.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
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    
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21