| Directory: | ./ |
|---|---|
| File: | misc/cbrt.f |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 2 | 0.0% |
| Branches: | 0 | 0 | -% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | ✗ | FUNCTION cbrt(x) | |
| 2 | ! Return the cubic root for positive or negative x | ||
| 3 | IMPLICIT NONE | ||
| 4 | |||
| 5 | REAL x,cbrt | ||
| 6 | |||
| 7 | ✗ | cbrt=sign(1.,x)*(abs(x)**(1./3.)) | |
| 8 | |||
| 9 | RETURN | ||
| 10 | END | ||
| 11 | |||
| 12 |