source:
branches/2789_MathNetNumerics-Exploration/HeuristicLab.Algorithms.DataAnalysis.Experimental/sbart/dcabs1.f
@
17328
| Last change on this file since 17328 was 15457, checked in by gkronber, 7 years ago | |
|---|---|
| File size: 332 bytes | |
| Line | |
|---|---|
| 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 |
Note: See TracBrowser
for help on using the repository browser.
