lev1 and lev2 variables initialized

[u/mrichter/AliRoot.git] / TFluka / FLUKA_input.f

diff --git a/TFluka/FLUKA_input.f b/TFluka/FLUKA_input.f
index 523cba432643c222b74d43cc079543946dae775b..e1531c6668769feefb09a8147c8b83084bdd7a40 100644 (file)
--- a/TFluka/FLUKA_input.f
+++ b/TFluka/FLUKA_input.f
@@ -21,17 +21,32 @@
       INTEGER IOUNIT
       CHARACTER*(*) FILNAM
 
-      PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
+      RETURN
+ 9999 END
 
-      PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
+      SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
+*
+*----------------------------------------------------------------------*
+* Opens a file with a given unit number
+*
+*
+* IOUNIT: Input unit to be assiged to the file
+* FILNAM: Name of the file
+*
+*----------------------------------------------------------------------*
+*
+
+      IMPLICIT NONE
+      INTEGER IOUNIT
+      CHARACTER*(*) FILNAM
+
+      OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
 
       RETURN
  9999 END
 
 
-
 *
 *=== FLUKA_CLOSEINP ====================================================*
 *
@@ -48,10 +63,8 @@
       IMPLICIT NONE
       INTEGER IOUNIT
 
-      PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
 
       CLOSE (UNIT=IOUNIT)
 
-      PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
       RETURN
  9999 END