scabs1sub()

subroutine scabs1sub	(	complex	z,
		real	cabs1
	)

Definition at line 5 of file scabs1sub.f.

c
      external scabs1
      complex z
      real scabs1, cabs1
c
      cabs1=scabs1(z)
      return

Here is the call graph for this function: