01:       DOUBLE PRECISION FUNCTION DCABS1(Z)
02: *     .. Scalar Arguments ..
03:       DOUBLE COMPLEX Z
04: *     ..
05: *     ..
06: *  Purpose
07: *  =======
08: *
09: *  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
19: