Changeset 2220 for LMDZ5/branches/testing/libf/bibio

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/i1mach.F (modified) (2 diffs)
• libf/bibio/j4save.F (modified) (2 diffs)
• libf/bibio/xercnt.F (modified) (2 diffs)
• libf/bibio/xermsg.F (modified) (2 diffs)
• libf/bibio/xerprn.F (modified) (2 diffs)
• libf/bibio/xersve.F (modified) (3 diffs)
• libf/bibio/xgetua.F (modified) (2 diffs)

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

@@ -1 +1 @@
 *DECK I1MACH
       INTEGER FUNCTION I1MACH (I)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  I1MACH
 C***PURPOSE  Return integer machine dependent constants.
@@ -95 +96 @@
       SAVE IMACH
       EQUIVALENCE (IMACH(4),OUTPUT)
+      INTEGER I
 C***FIRST EXECUTABLE STATEMENT  I1MACH
       IMACH( 1) =         5

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

@@ -1 +1 @@
 *DECK J4SAVE
       FUNCTION J4SAVE (IWHICH, IVALUE, ISET)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  J4SAVE
 C***SUBSIDIARY
@@ -59 +60 @@
       DATA IPARAM(5)/1/
       DATA IPARAM(6),IPARAM(7),IPARAM(8),IPARAM(9)/0,0,0,0/
+      INTEGER J4SAVE,IWHICH,IVALUE
 C***FIRST EXECUTABLE STATEMENT  J4SAVE
       J4SAVE = IPARAM(IWHICH)

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

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.)

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

@@ -1 +1 @@
 *DECK XERPRN
       SUBROUTINE XERPRN (PREFIX, NPREF, MESSG, NWRAP)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  XERPRN
 C***SUBSIDIARY
@@ -81 +82 @@
       CHARACTER*2 NEWLIN
       PARAMETER (NEWLIN = '$$')
+      INTEGER N, I1MACH, I, LPREF, LWRAP, LENMSG, NEXTC
+      INTEGER LPIECE, IDELTA
 C***FIRST EXECUTABLE STATEMENT  XERPRN
       CALL XGETUA(IU,NUNIT)

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

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

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

@@ -1 +1 @@
 *DECK XGETUA
       SUBROUTINE XGETUA (IUNITA, N)
+      IMPLICIT NONE
 C***BEGIN PROLOGUE  XGETUA
 C***PURPOSE  Return unit number(s) to which error messages are being
@@ -41 +42 @@
 C***END PROLOGUE  XGETUA
       DIMENSION IUNITA(5)
+      INTEGER IUNITA, N, J4SAVE, INDEX, I
 C***FIRST EXECUTABLE STATEMENT  XGETUA
       N = J4SAVE(5,0,.FALSE.)