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

Diff of /trunk/dyn3d/ssum.f

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

revision 35 by guez, Tue Jun 8 15:37:21 2010 UTC revision 40 by guez, Tue Feb 22 13:49:36 2011 UTC
# Line 5  real function ssum(n,sx,incx) Line 5  real function ssum(n,sx,incx)
5    IMPLICIT NONE    IMPLICIT NONE
6    
7    integer, intent(in):: n, incx    integer, intent(in):: n, incx
8    real, intent(in):: sx((n-1)*incx+1)    real, intent(in):: sx((n - 1) * incx + 1)
9    
10    !-----------------------    !-----------------------
11    
12    ssum=sum(sx(::incx))    ssum = sum(sx(::incx))
13    
14  end function ssum  end function ssum
Legend:
Removed from v.35  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.21