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
1.7.2