source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/bibio/cbrt.F @ 228

Last change on this file since 228 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 127 bytes
Line 
1      FUNCTION cbrt(x)
2      IMPLICIT NONE
3
4      REAL x,cbrt
5
6      cbrt=sign(1.,x)*(abs(x)**(1./3.))
7
8      RETURN
9      END
Note: See TracBrowser for help on using the repository browser.