LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ scasumsub()

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

Definition at line 7 of file scasumsub.f.

7 c
8  external scasum
9  real scasum,asum
10  integer n,incx
11  complex x(*)
12 c
13  asum=scasum(n,x,incx)
14  return
real function scasum(N, CX, INCX)
SCASUM
Definition: scasum.f:74
Here is the call graph for this function: