LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ scnrm2sub()

subroutine scnrm2sub ( integer  n,
complex, dimension(*)  x,
integer  incx,
real  nrm2 
)

Definition at line 7 of file scnrm2sub.f.

7 c
8  external scnrm2
9  real scnrm2,nrm2
10  integer n,incx
11  complex x(*)
12 c
13  nrm2=scnrm2(n,x,incx)
14  return
real function scnrm2(N, X, INCX)
SCNRM2
Definition: scnrm2.f:77
Here is the call graph for this function: