source: trunk/LMDZ.MARS/libf/misc/isamax.F @ 2156

Last change on this file since 2156 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM

File size: 385 bytes
Line 
1      function isamax(n,sx,incx)
2c
3      IMPLICIT NONE
4c
5      INTEGER n,i,incx,isamax,ix
6      real sx((n-1)*incx+1),sxmax,abssx
7c
8      ix=1
9      isamax=1
10      sxmax=ABS(sx(1))
11      do 10 i=1,n-1
12         ix=ix+incx
13         abssx=ABS(sx(ix))
14         if(abssx.gt.sxmax) then
15             sxmax=abssx
16             isamax=i+1
17         endif
1810    continue
19c
20      return
21      end
Note: See TracBrowser for help on using the repository browser.