v0.9.0
sasumsub.f
Go to the documentation of this file.
1 c sasumsub.f
2 c
3 c The program is a fortran wrapper for sasum.
4 c Witten by Keita Teranishi. 2/11/1998
5 c
6  subroutine sasumsub(n,x,incx,asum)
7 c
8  external sasum
9  real sasum,asum
10  integer n,incx
11  real x(*)
12 c
13  asum=sasum(n,x,incx)
14  return
15  end
subroutine sasumsub(n, x, incx, asum)
Definition: sasumsub.f:7