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 |