Changeset 2197 for LMDZ5/trunk/libf/bibio/xgetua.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/xgetua.F (modified) (2 diffs)

LMDZ5/trunk/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.)