Changeset 2220 for LMDZ5/branches/testing/libf/bibio/xermsg.F

Timestamp:

Mar 3, 2015, 2:41:13 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/bibio/xermsg.F (modified) (2 diffs)

LMDZ5/branches/testing/libf/bibio/xermsg.F

@@ -1 +1 @@
 *DECK XERMSG
       SUBROUTINE XERMSG (LIBRAR, SUBROU, MESSG, NERR, LEVEL)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  XERMSG
 C***PURPOSE  Process error messages for SLATEC and other libraries.
@@ -189 +190 @@
       CHARACTER*72  TEMP
       CHARACTER*20  LFIRST
+      INTEGER NERR, LEVEL, LKNTRL
+      INTEGER J4SAVE, MAXMES, KDUMMY, I, KOUNT, LERR, LLEVEL
+      INTEGER MKNTRL, LTEMP
 C***FIRST EXECUTABLE STATEMENT  XERMSG
       LKNTRL = J4SAVE (2, 0, .FALSE.)