LAPACK  3.8.0
LAPACK: Linear Algebra PACKage
dznrm2sub.f
Go to the documentation of this file.
1 c dznrm2sub.f
2 c
3 c The program is a fortran wrapper for dznrm2.
4 c Witten by Keita Teranishi. 2/11/1998
5 c
6  subroutine dznrm2sub(n,x,incx,nrm2)
7 c
8  external dznrm2
9  double precision dznrm2,nrm2
10  integer n,incx
11  double complex x(*)
12 c
13  nrm2=dznrm2(n,x,incx)
14  return
15  end
double precision function dznrm2(N, X, INCX)
DZNRM2
Definition: dznrm2.f:77
subroutine dznrm2sub(n, x, incx, nrm2)
Definition: dznrm2sub.f:7