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