trunk/dyn3d/ismax.f

!
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/ismax.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
!
      function ismax(n,sx,incx)
c
      IMPLICIT NONE
c
      INTEGER n,i,incx,ismax,ix
      real sx((n-1)*incx+1),sxmax
c
      ix=1
      ismax=1
      sxmax=sx(1)
      do 10 i=1,n-1
       ix=ix+incx
       if(sx(ix).gt.sxmax) then
         sxmax=sx(ix)
         ismax=i+1
       endif
10    continue
c
      return
      end

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