Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath_pch.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_libmath_pch.f90 (modified) (3 diffs)

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

@@ -489 +489 @@
     ! the points  XE.
 
-    use lmdz_assert_eq, only: assert_eq
+    use lmdz_assert_eq, ONLY: assert_eq
 
     REAL, intent(in) :: X(:) ! real array of independent variable values
@@ -572 +572 @@
     ! 2001, pages 43-47
 
-    use lmdz_assert_eq, only: assert_eq
+    use lmdz_assert_eq, ONLY: assert_eq
 
     real, intent(in) :: x(:)
@@ -638 +638 @@
 
     n = assert_eq(size(x), size(f), "pchsp_95 n")
-    if ((ibeg == 1 .or. ibeg == 2) .and. .not. present(vc_beg)) then
+    if ((ibeg == 1 .or. ibeg == 2) .and. .not. present(vc_beg)) THEN
       print *, "vc_beg required for IBEG = 1 or 2"
       stop 1
     end if
-    if ((iend == 1 .or. iend == 2) .and. .not. present(vc_end)) then
+    if ((iend == 1 .or. iend == 2) .and. .not. present(vc_end)) THEN
       print *, "vc_end required for IEND = 1 or 2"
       stop 1