source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/cbrt.F @ 3567

Last change on this file since 3567 was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)
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.