LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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)
Definition: scasum.f:54

Here is the call graph for this function: