Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/misc/cbrt.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/misc/cbrt.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/cbrt.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/cbrt.f90

@@ -1 @@
-      FUNCTION cbrt(x)
-      ! Return the cubic root for positive or negative x
-      IMPLICIT NONE
+FUNCTION cbrt(x)
+  ! ! Return the cubic root for positive or negative x
+  IMPLICIT NONE
 
-      REAL x,cbrt
+  REAL :: x,cbrt
 
-      cbrt=sign(1.,x)*(abs(x)**(1./3.))
+  cbrt=sign(1.,x)*(abs(x)**(1./3.))
 
-      RETURN
-      END
 
+END FUNCTION cbrt
+