pyquen added.

diff --git a/PYTHIA6/AliPythia.cxx b/PYTHIA6/AliPythia.cxx
index a8bee2e083ef761ce6e1d3499e0c22dbf6d66bdb..75e8d30105d08c4b5edb3454051b3d7bd6ed985e 100644 (file)
--- a/PYTHIA6/AliPythia.cxx
+++ b/PYTHIA6/AliPythia.cxx
@@ -28,11 +28,13 @@ ClassImp(AliPythia)
 # define pycell pycell_
 # define pyshow pyshow_
 # define pyrobo pyrobo_
+# define pyquen pyquen_
 # define type_of_call
 #else
 # define pyclus PYCLUS
 # define pycell PYCELL
 # define pyrobo PYROBO
+# define pyquen PYQUEN
 # define type_of_call _stdcall
 #endif
 
@@ -40,6 +42,7 @@ extern "C" void type_of_call pyclus(Int_t & );
 extern "C" void type_of_call pycell(Int_t & );
 extern "C" void type_of_call pyshow(Int_t &, Int_t &, Double_t &);
 extern "C" void type_of_call pyrobo(Int_t &, Int_t &, Double_t &, Double_t &, Double_t &, Double_t &, Double_t &);
+extern "C" void type_of_call pyquen(Double_t &, Int_t &, Double_t &);
 
 //_____________________________________________________________________________
 
@@ -1199,3 +1202,9 @@ void  AliPythia::Quench()
 //     this->Pylist(1);
 } // end quench
 
+
+void AliPythia::Pyquen(Double_t a, Int_t ibf, Double_t b)
+{
+    // Igor Lokthine's quenching routine
+    pyquen(a, ibf, b);
+}

diff --git a/PYTHIA6/AliPythia.h b/PYTHIA6/AliPythia.h
index 188a77da53c7f0f7aca028074190e101e10bc84e..8ad7ae5235e66a8e1a5d96c7c0c497cb0bf45267 100644 (file)
--- a/PYTHIA6/AliPythia.h
+++ b/PYTHIA6/AliPythia.h
@@ -57,6 +57,7 @@ class AliPythia : public TPythia6, public AliRndm
     virtual void Pyshow(Int_t ip1, Int_t ip2, Double_t qmax);
     virtual void Pyrobo(Int_t imi, Int_t ima, Double_t the, Double_t phi, Double_t bex, Double_t bey, Double_t bez);
     virtual void InitQuenching(Float_t bmin, Float_t bmax, Float_t k, Int_t iECMethod);
+    virtual void Pyquen(Double_t a, Int_t ibf, Double_t b);
     
     // return instance of the singleton
     static  AliPythia* Instance();

diff --git a/PYTHIA6/libpythia6.pkg b/PYTHIA6/libpythia6.pkg
index 07c5bbb649edd8c1d591e67630c0a6694856fda7..14d81dd1e9a44272001a18515ae1b4f767bcb68e 100644 (file)
--- a/PYTHIA6/libpythia6.pkg
+++ b/PYTHIA6/libpythia6.pkg
@@ -14,7 +14,8 @@ pythia6214.F \
 pythia6_common_block_address.F \
 pdf_alice.F\
 tpythia6_called_from_cc.F\
-openDecayTable.F
+openDecayTable.F\
+pyquen.F
 
 ifeq ($(ALICE_TARGET),linux)
    GCC_VERSION    := $(shell $(CXX) -v 2>&1 | \