source: LMDZ6/trunk/libf/misc/cbrt.f90 @ 5367

Last change on this file since 5367 was 5246, checked in by abarral, 8 weeks ago

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)

File size: 172 bytes
Line 
1FUNCTION 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
10END FUNCTION cbrt
11
Note: See TracBrowser for help on using the repository browser.