01:       REAL FUNCTION SCABS1(Z)
02: *     .. Scalar Arguments ..
03:       COMPLEX Z
04: *     ..
05: *
06: *  Purpose
07: *  =======
08: *
09: *  SCABS1 computes absolute value of a complex number
10: *
11: *     .. Intrinsic Functions ..
12:       INTRINSIC ABS,AIMAG,REAL
13: *     ..
14:       SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
15:       RETURN
16:       END
17: