dc/d8d/scabs1_8f_source.html

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