Changeset 2197 for LMDZ5/trunk/libf/bibio/xersve.F

Timestamp:

Feb 9, 2015, 8:13:05 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Added 'implicit none' statements and proper variable definitions where they were missing.
EM

File:

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

LMDZ5/trunk/libf/bibio/xersve.F

@@ -2 +2 @@
       SUBROUTINE XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL,
      +   ICOUNT)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  XERSVE
 C***SUBSIDIARY
@@ -66 +67 @@
       SAVE LIBTAB, SUBTAB, MESTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
       DATA KOUNTX/0/, NMSG/0/
+      INTEGER NERR,LEVEL,KONTRL
+      INTEGER LENTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
+      INTEGER KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
 C***FIRST EXECUTABLE STATEMENT  XERSVE
 C