Changeset 5123 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_xer.f90

Timestamp:

Jul 25, 2024, 8:45:50 AM (4 months ago)

Author:

abarral

Message:

Correct various minor mistakes from previous commits

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_xer.f90 (modified) (6 diffs)

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

@@ -201 +201 @@
     CHARACTER(len = 20) :: LFIRST
     INTEGER :: NERR, LEVEL, LKNTRL
-    INTEGER :: J4SAVE, MAXMES, KDUMMY, I, KOUNT, LERR, LLEVEL
+    INTEGER :: MAXMES, KDUMMY, I, KOUNT, LERR, LLEVEL
     INTEGER :: MKNTRL, LTEMP
     !***FIRST EXECUTABLE STATEMENT  XERMSG
@@ -549 +549 @@
     !***END PROLOGUE  XGETUA
     DIMENSION IUNITA(5)
-    INTEGER :: IUNITA, N, J4SAVE, INDEX, I
+    INTEGER :: IUNITA, N, INDEX, I
     !***FIRST EXECUTABLE STATEMENT  XGETUA
     N = J4SAVE(5, 0, .FALSE.)
@@ -630 +630 @@
     INTEGER :: NERR, LEVEL, KONTRL
     INTEGER :: NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
-    INTEGER :: KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
+    INTEGER :: KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I
     !***FIRST EXECUTABLE STATEMENT  XERSVE
     !
@@ -803 +803 @@
     CHARACTER(len = 2) :: NEWLIN
     PARAMETER (NEWLIN = '$$')
-    INTEGER :: N, I1MACH, I, LPREF, LWRAP, LENMSG, NEXTC
+    INTEGER :: N, I, LPREF, LWRAP, LENMSG, NEXTC
     INTEGER :: LPIECE, IDELTA
     !***FIRST EXECUTABLE STATEMENT  XERPRN
@@ -1056 +1056 @@
 
   !DECK J4SAVE
-  FUNCTION J4SAVE(IWHICH, IVALUE, ISET)
+  INTEGER FUNCTION J4SAVE(IWHICH, IVALUE, ISET)
     IMPLICIT NONE
     !***BEGIN PROLOGUE  J4SAVE
@@ -1116 +1116 @@
     DATA IPARAM(5)/1/
     DATA IPARAM(6), IPARAM(7), IPARAM(8), IPARAM(9)/0, 0, 0, 0/
-    INTEGER :: J4SAVE, IWHICH, IVALUE
+    INTEGER :: IWHICH, IVALUE
     !***FIRST EXECUTABLE STATEMENT  J4SAVE
     J4SAVE = IPARAM(IWHICH)