Close decaytable after use.

diff --git a/PYTHIA6/AliDecayerPythia.cxx b/PYTHIA6/AliDecayerPythia.cxx
index 4c4f32aa68451ae6fec3164862d1c22c37a3ff5f..1a7b16c34be35947e046a43832fb9b7ed7aef513 100644 (file)
--- a/PYTHIA6/AliDecayerPythia.cxx
+++ b/PYTHIA6/AliDecayerPythia.cxx
@@ -33,10 +33,12 @@ ClassImp(AliDecayerPythia)
 #ifndef WIN32
 # define py1ent py1ent_
 # define opendecaytable opendecaytable_
+# define closedecaytable closedecaytable_
 # define type_of_call
 #else
 # define lu1ent PY1ENT
 # define opendecaytable OPENDECAYTABLE
+# define closedecaytable CLOSEDECAYTABLE
 # define type_of_call _stdcall
 #endif
 
@@ -46,6 +48,9 @@ extern "C" void type_of_call
 extern "C" void type_of_call 
           opendecaytable(Int_t&);
 
+extern "C" void type_of_call 
+          closedecaytable(Int_t&);
+
 Bool_t AliDecayerPythia::fgInit = kFALSE;
 
 
@@ -484,6 +489,8 @@ void AliDecayerPythia::ReadDecayTable()
     Int_t lun = 15;
     opendecaytable(lun);
     fPythia->Pyupda(3,lun);
+    closedecaytable(lun);
+    
 }
 
 #ifdef never

diff --git a/PYTHIA6/openDecayTable.F b/PYTHIA6/openDecayTable.F
index 9cbe547e88e233e1519c7e471350ab8676724a74..7ec87fe361055a8539482d5bcdd87e8da1af28eb 100644 (file)
--- a/PYTHIA6/openDecayTable.F
+++ b/PYTHIA6/openDecayTable.F
@@ -31,3 +31,7 @@
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
       RETURN
       END
+      SUBROUTINE CLOSEDECAYTABLE(LUN)
+      CLOSE(LUN)
+      RETURN
+      END