source:
branches/2789_MathNetNumerics-Exploration/HeuristicLab.Algorithms.DataAnalysis.Experimental/sbart/scabs1.f
@
17456
| Last change on this file since 17456 was 15457, checked in by gkronber, 7 years ago | |
|---|---|
| File size: 305 bytes | |
| Line | |
|---|---|
| 1 | REAL FUNCTION SCABS1(Z) |
| 2 | * .. Scalar Arguments .. |
| 3 | COMPLEX Z |
| 4 | * .. |
| 5 | * |
| 6 | * Purpose |
| 7 | * ======= |
| 8 | * |
| 9 | * SCABS1 computes absolute value of a complex number |
| 10 | * |
| 11 | * .. Intrinsic Functions .. |
| 12 | INTRINSIC ABS,AIMAG,REAL |
| 13 | * .. |
| 14 | SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z)) |
| 15 | RETURN |
| 16 | END |
Note: See TracBrowser
for help on using the repository browser.
