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
1.7.2