trunk/dyn3d/ssum.f

real function ssum(n,sx,incx)

  ! From cray.F, version 1.1.1.1 2004/05/19 12:53:05

  IMPLICIT NONE

  integer, intent(in):: n, incx
  real, intent(in):: sx((n - 1) * incx + 1)

  !-----------------------

  ssum = sum(sx(::incx))

end function ssum
1	guez	3	real function ssum(n,sx,incx)
2
3	guez	35	! From cray.F, version 1.1.1.1 2004/05/19 12:53:05
4	guez	3
5			IMPLICIT NONE
6
7			integer, intent(in):: n, incx
8	guez	40	real, intent(in):: sx((n - 1) * incx + 1)
9	guez	3
10			!-----------------------
11
12	guez	40	ssum = sum(sx(::incx))
13	guez	3
14			end function ssum