scabs1.f (flens/lapack/interface/ref

 1       REAL FUNCTION SCABS1(Z)

 2 *     .. Scalar Arguments ..

 3       COMPLEX Z

 4 *     ..

 5 *

 6 *  Purpose

 7 *  =======

 8 *

 9 *  SCABS1 computes absolute value of a complex number

10 *

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

12 *

13 *     .. Intrinsic Functions ..

14       INTRINSIC ABS,AIMAG,REAL

15 *     ..

16       SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))

17       RETURN

18       END