Changeset 2199 for LMDZ5/trunk/libf/bibio

Timestamp:

Feb 9, 2015, 9:59:05 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Follow-up of r2197; some compilers (e.g. ifort) impose that parameter types be declared before or at the same time as the associated values.
EM

File:

• LMDZ5/trunk/libf/bibio/xersve.F (modified) (2 diffs)

LMDZ5/trunk/libf/bibio/xersve.F

@@ -59 +59 @@
 C   920501  Reformatted the REFERENCES section.  (WRB)
 C***END PROLOGUE  XERSVE
-      PARAMETER (LENTAB=10)
+      INTEGER,PARAMETER :: LENTAB=10
       INTEGER LUN(5)
       CHARACTER*(*) LIBRAR, SUBROU, MESSG
@@ -68 +68 @@
       DATA KOUNTX/0/, NMSG/0/
       INTEGER NERR,LEVEL,KONTRL
-      INTEGER LENTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
+      INTEGER NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
       INTEGER KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
 C***FIRST EXECUTABLE STATEMENT  XERSVE