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

Definition at line 7 of file scnrm2sub.f.

c
      external scnrm2
      real scnrm2,nrm2
      integer n,incx
      complex x(*)
c
      nrm2=scnrm2(n,x,incx)
      return

Here is the call graph for this function: