|
DOUBLE PRECISION FUNCTION DCABS1(Z)
|
|
* .. Scalar Arguments ..
|
|
DOUBLE COMPLEX Z
|
|
* ..
|
|
* ..
|
|
* Purpose
|
|
* =======
|
|
*
|
|
* DCABS1 computes absolute value of a double complex number
|
|
*
|
|
* .. Intrinsic Functions ..
|
|
INTRINSIC ABS,DBLE,DIMAG
|
|
*
|
|
DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
|
|
RETURN
|
|
END
|