dcabs1sub()

subroutine dcabs1sub	(	double complex	z,
		double precision	cabs1
	)

Definition at line 5 of file dcabs1sub.f.

c
      external dcabs1
      double complex z
      double precision dcabs1, cabs1
c
      cabs1=dcabs1(z)
      return

Here is the call graph for this function: