source: trunk/LMDZ.MARS/libf/bibio/ssum.F @ 300

Last change on this file since 300 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: 242 bytes
Line 
1      function ssum(n,sx,incx)
2c
3      IMPLICIT NONE
4c
5      integer n,incx,i,ix
6      real ssum,sx((n-1)*incx+1)
7c
8      ssum=0.
9      ix=1
10      do 10 i=1,n
11      ssum=ssum+sx(ix)
12         ix=ix+incx
1310    continue
14c
15      return
16      end
Note: See TracBrowser for help on using the repository browser.