Removing TF1s from the list of functions

diff --git a/EVGEN/AliGenHIJINGpara.cxx b/EVGEN/AliGenHIJINGpara.cxx
index 2a462bdf88c1c0da60e572e24d4e3194bc8fe39f..1d12581281aa101eac78ce3b3a630a3d2ebfabcc 100644 (file)
--- a/EVGEN/AliGenHIJINGpara.cxx
+++ b/EVGEN/AliGenHIJINGpara.cxx
@@ -46,6 +46,7 @@
 #include <TPDGCode.h>
 #include <TCanvas.h>
 #include <TVirtualMC.h>
+#include <TROOT.h>
 
 #include "AliConst.h"
 #include "AliDecayer.h"
@@ -221,11 +222,15 @@ void AliGenHIJINGpara::Init()
     Float_t etaMax = -TMath::Log(TMath::Tan(
        TMath::Max((Double_t)fThetaMin/2,1.e-10)));
     fPtpi   = new TF1("ptpi",&ptpi,0,20,0);
+    gROOT->GetListOfFunctions()->Remove(fPtpi);
     fPtka   = new TF1("ptka",&ptka,0,20,0);
+    gROOT->GetListOfFunctions()->Remove(fPtka);
     fPtpi->SetNpx(1000);
     fPtka->SetNpx(1000);
     fETApic = new TF1("etapic",&etapic,etaMin,etaMax,0);
+    gROOT->GetListOfFunctions()->Remove(fETApic);
     fETAkac = new TF1("etakac",&etakac,etaMin,etaMax,0);
+    gROOT->GetListOfFunctions()->Remove(fETAkac);
 
     TF1 etaPic0("etaPic0",&etapic,-7,7,0);
     TF1 etaKac0("etaKac0",&etakac,-7,7,0);

diff --git a/EVGEN/AliGenParam.cxx b/EVGEN/AliGenParam.cxx
index 0fad3ae8c77f26765801fa8f1d676d37e98ca937..dc1243f03683af87e30fdb8e7736be45d817af20 100644 (file)
--- a/EVGEN/AliGenParam.cxx
+++ b/EVGEN/AliGenParam.cxx
@@ -30,6 +30,7 @@
 #include <TDatabasePDG.h>
 #include <TLorentzVector.h>
 #include <TVirtualMC.h>
+#include <TROOT.h>
 
 #include <TF1.h>
 #include <TCanvas.h>
@@ -170,6 +171,7 @@ void AliGenParam::Init()
     
     if (fPtPara) fPtPara->Delete();
     fPtPara = new TF1(name, fPtParaFunc, fPtMin, fPtMax,0);
+    gROOT->GetListOfFunctions()->Remove(fPtPara);
 //  Set representation precision to 10 MeV
     Int_t npx= Int_t((fPtMax - fPtMin) / fDeltaPt);
     
@@ -178,6 +180,8 @@ void AliGenParam::Init()
     sprintf(name, "y-parameterisation  for %s", GetName());
     if (fYPara) fYPara->Delete();
     fYPara  = new TF1(name, fYParaFunc, fYMin, fYMax, 0);
+    gROOT->GetListOfFunctions()->Remove(fYPara);
+
     
     sprintf(name, "pt-for-%s", GetName());
     TF1 ptPara(name ,fPtParaFunc, 0, 15, 0);