17 lines
332 B
FortranFixed
17 lines
332 B
FortranFixed
|
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
|