source: trunk/LMDZ.PLUTO.old/libf/bibio/cbrt.F @ 3561

Last change on this file since 3561 was 3175, checked in by emillour, 12 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
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.