Close decaytable after use.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 18 Nov 2003 10:04:00 +0000 (10:04 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 18 Nov 2003 10:04:00 +0000 (10:04 +0000)
PYTHIA6/AliDecayerPythia.cxx
PYTHIA6/openDecayTable.F

index 4c4f32aa68451ae6fec3164862d1c22c37a3ff5f..1a7b16c34be35947e046a43832fb9b7ed7aef513 100644 (file)
@@ -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
index 9cbe547e88e233e1519c7e471350ab8676724a74..7ec87fe361055a8539482d5bcdd87e8da1af28eb 100644 (file)
@@ -31,3 +31,7 @@
       OPEN(LUN,FILE=FILNAM,STATUS='OLD')
       RETURN
       END
+      SUBROUTINE CLOSEDECAYTABLE(LUN)
+      CLOSE(LUN)
+      RETURN
+      END