Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_coefpoly.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_coefpoly.f90 (modified) (2 diffs)

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

@@ -1 +1 @@
 module lmdz_coefpoly
 
-  IMPLICIT NONE
+  IMPLICIT NONE; PRIVATE
+  PUBLIC coefpoly
 
 contains
@@ -25 +26 @@
     ! a0, a1, a2, a3.
 
-    use nrtype, only: k8
+    use nrtype, ONLY: k8
 
     REAL(K8), intent(in) :: xf1, xf2, xprim1, xprim2, xtild1, xtild2