source: CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/modeles/LMDZ/libf/misc/cbrt.F @ 6165

Last change on this file since 6165 was 5501, checked in by aclsce, 4 years ago

First import of IPSLCM6.5_work_ENSEMBLES working configuration

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.