source:
LMDZ6/branches/LMDZ-COSP/libf/misc/cbrt.F
Last change on this file was 2291, checked in by , 9 years ago | |
---|---|
File size: 185 bytes |
Line | |
---|---|
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 |
Note: See TracBrowser
for help on using the repository browser.