source:
LMDZ6/trunk/libf/misc/cbrt.f90
@
5367
Last change on this file since 5367 was 5246, checked in by , 8 weeks ago | |
---|---|
File size: 172 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 FUNCTION cbrt |
11 |
Note: See TracBrowser
for help on using the repository browser.