Changeset 2220 for LMDZ5/branches/testing/libf/bibio/i1mach.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/i1mach.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