da/dcc/dcabs1_8f_source.html

00001       DOUBLE PRECISION FUNCTION DCABS1(Z)
00002 *     .. Scalar Arguments ..
00003       DOUBLE COMPLEX Z
00004 *     ..
00005 *     ..
00006 *  Purpose
00007 *  =======
00008 *
00009 *  DCABS1 computes absolute value of a double complex number
00010 *
00011 *  =====================================================================
00012 *
00013 *     .. Intrinsic Functions ..
00014       INTRINSIC ABS,DBLE,DIMAG
00015 *
00016       DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
00017       RETURN
00018       END