source: CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/misc/cbrt.F

Last change on this file was 5477, checked in by aclsce, 4 years ago
  • Created CONFIG_DEVT directory
  • First import of LMDZOR_V6.2_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.