dcabs1.f (flens/lapack/interface/ref

 1       DOUBLE PRECISION FUNCTION DCABS1(Z)

 2 *     .. Scalar Arguments ..

 3       DOUBLE COMPLEX Z

 4 *     ..

 5 *     ..

 6 *  Purpose

 7 *  =======

 8 *

 9 *  DCABS1 computes absolute value of a double complex number 

10 *

11 *  =====================================================================

12 *

13 *     .. Intrinsic Functions ..

14       INTRINSIC ABS,DBLE,DIMAG

15 *

16       DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))

17       RETURN

18       END