Removing TSystemDirectory.h that was left from the initial implementation.

[u/mrichter/AliRoot.git] / PYTHIA6 / openDecayTable.F

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index 9cbe547e88e233e1519c7e471350ab8676724a74..2f71ea131d02be8a366b4d7e81bb5a95043eca19 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -6,8 +6,8 @@
       LOGICAL OPENED,EXISTS
       LOGICAL LRMSCH, LRD1O2, LTRASP
       INTEGER LUN
-      CHARACTER*100 FILNAM
-      CHARACTER*100 CHROOT
+      CHARACTER*1000 FILNAM
+      CHARACTER*1000 CHROOT
       CHROOT=' '
       CALL GETENVF('ALICE_ROOT',CHROOT)
       LNROOT = LNBLNK(CHROOT)
@@ -31,3 +31,7 @@
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
       RETURN
       END
+      SUBROUTINE CLOSEDECAYTABLE(LUN)
+      CLOSE(LUN)
+      RETURN
+      END