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

Last change on this file since 5449 was 5246, checked in by abarral, 2 months 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
RevLine 
[5246]1FUNCTION cbrt(x)
2  ! ! Return the cubic root for positive or negative x
3  IMPLICIT NONE
[2291]4
[5246]5  REAL :: x,cbrt
[2291]6
[5246]7  cbrt=sign(1.,x)*(abs(x)**(1./3.))
[2291]8
[5246]9  RETURN
10END FUNCTION cbrt
[2291]11
Note: See TracBrowser for help on using the repository browser.