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