Changeset 2220 for LMDZ5/branches/testing/libf/bibio/xercnt.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/xercnt.F (modified) (2 diffs)

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

@@ -1 +1 @@
 *DECK XERCNT
       SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  XERCNT
 C***SUBSIDIARY
@@ -56 +57 @@
 C***END PROLOGUE  XERCNT
       CHARACTER*(*) LIBRAR, SUBROU, MESSG
+      INTEGER NERR, LEVEL, KONTRL
 C***FIRST EXECUTABLE STATEMENT  XERCNT
       RETURN