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