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: *  =====================================================================
12: *
13: *     .. Intrinsic Functions ..
14:       INTRINSIC ABS,AIMAG,REAL
15: *     ..
16:       SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
17:       RETURN
18:       END
19: