Go to the source code of this file.
real function scabs1 |
( |
complex |
Z | ) |
|
SCABS1
- Purpose:
SCABS1 computes absolute value of a complex number
- Author
- Univ. of Tennessee
-
Univ. of California Berkeley
-
Univ. of Colorado Denver
-
NAG Ltd.
- Date
- November 2011
Definition at line 40 of file scabs1.f.
53 INTRINSIC abs,aimag,real
55 scabs1 = abs(
REAL(z)) + abs(aimag(z))
real function scabs1(Z)
SCABS1