LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ sasumsub()

subroutine sasumsub ( integer  n,
real, dimension(*)  x,
integer  incx,
real  asum 
)

Definition at line 7 of file sasumsub.f.

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
real function sasum(N, SX, INCX)
SASUM
Definition: sasum.f:74
Here is the call graph for this function: