root / src / blas / dcabs1.f @ 11
Historique | Voir | Annoter | Télécharger (332 octet)
| 1 |
DOUBLE PRECISION FUNCTION DCABS1(Z) |
|---|---|
| 2 |
* .. Scalar Arguments .. |
| 3 |
DOUBLE COMPLEX Z |
| 4 |
* .. |
| 5 |
* .. |
| 6 |
* Purpose |
| 7 |
* ======= |
| 8 |
* |
| 9 |
* DCABS1 computes absolute value of a double complex number |
| 10 |
* |
| 11 |
* .. Intrinsic Functions .. |
| 12 |
INTRINSIC ABS,DBLE,DIMAG |
| 13 |
* |
| 14 |
DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z)) |
| 15 |
RETURN |
| 16 |
END |