Index: LMDZ5/trunk/libf/bibio/xersve.F
===================================================================
--- LMDZ5/trunk/libf/bibio/xersve.F	(revision 2197)
+++ LMDZ5/trunk/libf/bibio/xersve.F	(revision 2199)
@@ -59,5 +59,5 @@
 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,5 +68,5 @@
       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