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

Diff of /trunk/dyn3d/ismax.f

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

trunk/dyn3d/ismax.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/ismax.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/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    
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21