source: LMDZ5/branches/testing/libf/misc/cbrt.F @ 5005

Last change on this file since 5005 was 2298, checked in by Laurent Fairhead, 9 years ago

Merged trunk changes -r2237:2291 into testing branch

File size: 185 bytes
RevLine 
[2291]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.