Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath_pch.f90

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath_pch.f90 (modified) (1 diff)

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

@@ -639 +639 @@
     n = assert_eq(size(x), size(f), "pchsp_95 n")
     IF ((ibeg == 1 .OR. ibeg == 2) .AND. .NOT. present(vc_beg)) THEN
-      print *, "vc_beg required for IBEG = 1 or 2"
+      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
-      print *, "vc_end required for IEND = 1 or 2"
+      PRINT *, "vc_end required for IEND = 1 or 2"
       stop 1
     end if