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

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