v0.9.0
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
subroutine dznrm2sub(n, x, incx, nrm2)
Definition: dznrm2sub.f:7