From dc1d768c88c7919a639e50ca5cd1638f54d2f81a Mon Sep 17 00:00:00 2001 From: hristov Date: Fri, 12 Dec 2003 17:29:30 +0000 Subject: [PATCH] Cleaning up warnings (Sun) --- EVGEN/AliDimuCombinator.cxx | 2 +- EVGEN/AliDimuCombinator.h | 2 +- EVGEN/AliGenBeamGas.cxx | 2 +- EVGEN/AliGenBeamGas.h | 2 +- EVGEN/AliGenCocktail.cxx | 2 +- EVGEN/AliGenCocktail.h | 2 +- EVGEN/AliGenCocktailAfterBurner.cxx | 2 +- EVGEN/AliGenCocktailAfterBurner.h | 2 +- EVGEN/AliGenCocktailEntry.cxx | 2 +- EVGEN/AliGenCocktailEntry.h | 2 +- EVGEN/AliGenExtFile.cxx | 2 +- EVGEN/AliGenExtFile.h | 2 +- EVGEN/AliGenFLUKAsource.cxx | 2 +- EVGEN/AliGenFLUKAsource.h | 2 +- EVGEN/AliGenHIJINGpara.cxx | 2 +- EVGEN/AliGenHIJINGpara.h | 2 +- EVGEN/AliGenHalo.cxx | 4 ++-- EVGEN/AliGenHalo.h | 2 +- EVGEN/AliGenHaloProtvino.cxx | 2 +- EVGEN/AliGenHaloProtvino.h | 2 +- EVGEN/AliGenMC.cxx | 2 +- EVGEN/AliGenMC.h | 2 +- EVGEN/AliGenParam.cxx | 2 +- EVGEN/AliGenParam.h | 2 +- EVGEN/AliGenReader.cxx | 2 +- EVGEN/AliGenReader.h | 2 +- EVGEN/AliGenReaderCwn.cxx | 2 +- EVGEN/AliGenReaderCwn.h | 2 +- EVGEN/AliGenReaderEcalHijing.cxx | 2 +- EVGEN/AliGenReaderEcalHijing.h | 2 +- EVGEN/AliGenReaderEcalJets.cxx | 2 +- EVGEN/AliGenReaderEcalJets.h | 2 +- EVGEN/AliGenReaderTreeK.cxx | 2 +- EVGEN/AliGenReaderTreeK.h | 2 +- EVGEN/AliGenSlowNucleons.cxx | 2 +- EVGEN/AliGenSlowNucleons.h | 2 +- EVGEN/PartEloss/integralgauss.f | 7 ++----- EVGEN/PartEloss/read.f | 1 - EVGEN/PartEloss/readca3.f | 1 - 39 files changed, 39 insertions(+), 44 deletions(-) diff --git a/EVGEN/AliDimuCombinator.cxx b/EVGEN/AliDimuCombinator.cxx index d74079ba841..44001c878c2 100644 --- a/EVGEN/AliDimuCombinator.cxx +++ b/EVGEN/AliDimuCombinator.cxx @@ -491,7 +491,7 @@ AliDimuCombinator& AliDimuCombinator::operator=(const AliDimuCombinator& rhs) } -void AliDimuCombinator::Copy(AliDimuCombinator&) const +void AliDimuCombinator::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliDimuCombinator.h b/EVGEN/AliDimuCombinator.h index d1bbdb7c216..da0cdd38246 100644 --- a/EVGEN/AliDimuCombinator.h +++ b/EVGEN/AliDimuCombinator.h @@ -22,7 +22,7 @@ class AliDimuCombinator: { public: AliDimuCombinator(); - void Copy(AliDimuCombinator &combi) const; + void Copy(TObject &combi) const; // // Iterators // Access to particle stack diff --git a/EVGEN/AliGenBeamGas.cxx b/EVGEN/AliGenBeamGas.cxx index 7d3f6472d29..a5eea6cce49 100644 --- a/EVGEN/AliGenBeamGas.cxx +++ b/EVGEN/AliGenBeamGas.cxx @@ -121,7 +121,7 @@ void AliGenBeamGas::Generate() -void AliGenBeamGas::Copy(AliGenBeamGas&) const +void AliGenBeamGas::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenBeamGas.h b/EVGEN/AliGenBeamGas.h index 405b1f16900..6d896fe5b6b 100644 --- a/EVGEN/AliGenBeamGas.h +++ b/EVGEN/AliGenBeamGas.h @@ -28,7 +28,7 @@ class AliGenBeamGas : public AliGenExtFile protected: Int_t fInteractions; // Number of interactions private: - void Copy(AliGenBeamGas&) const; + void Copy(TObject&) const; ClassDef(AliGenBeamGas,1) //Generator for beam gas interactions diff --git a/EVGEN/AliGenCocktail.cxx b/EVGEN/AliGenCocktail.cxx index 89a6580e705..24d88d4df01 100644 --- a/EVGEN/AliGenCocktail.cxx +++ b/EVGEN/AliGenCocktail.cxx @@ -231,7 +231,7 @@ AliGenCocktail& AliGenCocktail::operator=(const AliGenCocktail& rhs) return (*this); } -void AliGenCocktail::Copy(AliGenCocktail &) const +void AliGenCocktail::Copy(TObject &) const { Fatal("Copy","Not implemented!\n"); } diff --git a/EVGEN/AliGenCocktail.h b/EVGEN/AliGenCocktail.h index 00b59fe0458..494a2eac742 100644 --- a/EVGEN/AliGenCocktail.h +++ b/EVGEN/AliGenCocktail.h @@ -44,7 +44,7 @@ class AliGenCocktail : public AliGenerator TObjLink *flnk2; // ! Iterator for second generator // private: - void Copy(AliGenCocktail &arun) const; + void Copy(TObject &arun) const; ClassDef(AliGenCocktail,1) // Particle cocktail generator a la SHAKER }; diff --git a/EVGEN/AliGenCocktailAfterBurner.cxx b/EVGEN/AliGenCocktailAfterBurner.cxx index 8127ab026f9..a01c31c18e6 100644 --- a/EVGEN/AliGenCocktailAfterBurner.cxx +++ b/EVGEN/AliGenCocktailAfterBurner.cxx @@ -375,7 +375,7 @@ TMCProcess AliGenCocktailAfterBurner::IntToMCProcess(Int_t no) return kPNoProcess; } -void AliGenCocktailAfterBurner::Copy(AliGenCocktailAfterBurner &) const +void AliGenCocktailAfterBurner::Copy(TObject &) const { Fatal("Copy","Not implemented!\n"); } diff --git a/EVGEN/AliGenCocktailAfterBurner.h b/EVGEN/AliGenCocktailAfterBurner.h index a2d54cdaa79..06e8e452189 100644 --- a/EVGEN/AliGenCocktailAfterBurner.h +++ b/EVGEN/AliGenCocktailAfterBurner.h @@ -72,7 +72,7 @@ class AliGenCocktailAfterBurner : public AliGenCocktail //needed by some afterburners that works better with higher statistics //this generates such a artificial one private: - void Copy(AliGenCocktailAfterBurner &arun) const; + void Copy(TObject &arun) const; ClassDef(AliGenCocktailAfterBurner,2) // Particle cocktail generator a la SHAKER //background events added diff --git a/EVGEN/AliGenCocktailEntry.cxx b/EVGEN/AliGenCocktailEntry.cxx index 7a5fecf89b5..896fc85f2c5 100644 --- a/EVGEN/AliGenCocktailEntry.cxx +++ b/EVGEN/AliGenCocktailEntry.cxx @@ -79,7 +79,7 @@ AliGenCocktailEntry& AliGenCocktailEntry::operator return (*this); } -void AliGenCocktailEntry::Copy(AliGenCocktailEntry&) const +void AliGenCocktailEntry::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenCocktailEntry.h b/EVGEN/AliGenCocktailEntry.h index d7963dfa0aa..2d2cc9967d0 100644 --- a/EVGEN/AliGenCocktailEntry.h +++ b/EVGEN/AliGenCocktailEntry.h @@ -39,7 +39,7 @@ class AliGenCocktailEntry : public TNamed Float_t fRate; // Rate per event Float_t fKineBias; // Bias due to kinematic selecion Float_t fBias; // Bias - void Copy(AliGenCocktailEntry&) const; + void Copy(TObject&) const; private: ClassDef(AliGenCocktailEntry,1) // Generator entry of AliGenCocktail }; diff --git a/EVGEN/AliGenExtFile.cxx b/EVGEN/AliGenExtFile.cxx index 5024c7f499d..a2101984c56 100644 --- a/EVGEN/AliGenExtFile.cxx +++ b/EVGEN/AliGenExtFile.cxx @@ -221,7 +221,7 @@ AliGenExtFile& AliGenExtFile::operator=(const AliGenExtFile& rhs) } -void AliGenExtFile::Copy(AliGenExtFile&) const +void AliGenExtFile::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenExtFile.h b/EVGEN/AliGenExtFile.h index 5d784f42ca7..b0c9786ed9d 100644 --- a/EVGEN/AliGenExtFile.h +++ b/EVGEN/AliGenExtFile.h @@ -30,7 +30,7 @@ class AliGenExtFile : public AliGenMC void SetReader(AliGenReader* reader) {fReader = reader;} protected: void CdEventFile(); - void Copy(AliGenExtFile&) const; + void Copy(TObject&) const; const Text_t *fFileName; //! File to read from AliGenReader *fReader; //! Reader to read the file diff --git a/EVGEN/AliGenFLUKAsource.cxx b/EVGEN/AliGenFLUKAsource.cxx index c99ef8ee3aa..48de233cfd6 100644 --- a/EVGEN/AliGenFLUKAsource.cxx +++ b/EVGEN/AliGenFLUKAsource.cxx @@ -290,7 +290,7 @@ AliGenFLUKAsource& AliGenFLUKAsource::operator=(const AliGenFLUKAsource& rhs) } -void AliGenFLUKAsource::Copy(AliGenFLUKAsource &) const +void AliGenFLUKAsource::Copy(TObject &) const { Fatal("Copy","Not implemented!\n"); } diff --git a/EVGEN/AliGenFLUKAsource.h b/EVGEN/AliGenFLUKAsource.h index 8307f26e7c1..c6924ca552e 100644 --- a/EVGEN/AliGenFLUKAsource.h +++ b/EVGEN/AliGenFLUKAsource.h @@ -80,7 +80,7 @@ public: Float_t fAge; // Time of flight private: - void Copy(AliGenFLUKAsource &arun) const; + void Copy(TObject &arun) const; ClassDef(AliGenFLUKAsource,1) //Boundary source }; diff --git a/EVGEN/AliGenHIJINGpara.cxx b/EVGEN/AliGenHIJINGpara.cxx index 272a1868d5e..e1550ec0496 100644 --- a/EVGEN/AliGenHIJINGpara.cxx +++ b/EVGEN/AliGenHIJINGpara.cxx @@ -422,7 +422,7 @@ void AliGenHIJINGpara::DecayPi0(Float_t* orig, Float_t * p) fNt = nt; } -void AliGenHIJINGpara::Copy(AliGenHIJINGpara &) const +void AliGenHIJINGpara::Copy(TObject &) const { Fatal("Copy","Not implemented!\n"); } diff --git a/EVGEN/AliGenHIJINGpara.h b/EVGEN/AliGenHIJINGpara.h index 141fcd4a81a..a432d22ee6f 100644 --- a/EVGEN/AliGenHIJINGpara.h +++ b/EVGEN/AliGenHIJINGpara.h @@ -42,7 +42,7 @@ class AliGenHIJINGpara : public AliGenerator AliDecayer* fDecayer; // ! Pointer to pythia object for decays void DecayPi0(Float_t* orig, Float_t * p); - void Copy(AliGenHIJINGpara ¶) const; + void Copy(TObject ¶) const; ClassDef(AliGenHIJINGpara,3) // Hijing parametrisation generator }; #endif diff --git a/EVGEN/AliGenHalo.cxx b/EVGEN/AliGenHalo.cxx index 9a900856df4..7f914866a04 100644 --- a/EVGEN/AliGenHalo.cxx +++ b/EVGEN/AliGenHalo.cxx @@ -79,7 +79,7 @@ void AliGenHalo::Init() void AliGenHalo::Generate() { // Generate from input file - FILE *fp = fopen(fFileName,"r"); + fp = fopen(fFileName,"r"); if (fp) { printf("\n File %s opened for reading ! \n ", (char*) &fFileName); } else { @@ -143,7 +143,7 @@ AliGenHalo& AliGenHalo::operator=(const AliGenHalo& rhs) } -void AliGenHalo::Copy(AliGenHalo&) const +void AliGenHalo::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenHalo.h b/EVGEN/AliGenHalo.h index 4b9a3a056f2..11a9389a68f 100644 --- a/EVGEN/AliGenHalo.h +++ b/EVGEN/AliGenHalo.h @@ -25,7 +25,7 @@ class AliGenHalo : public AliGenerator virtual void Generate(); AliGenHalo & operator=(const AliGenHalo & rhs); private: - void Copy(AliGenHalo &Halo) const; + void Copy(TObject &Halo) const; protected: FILE *fp; // ! Pointer to file TString fFileName; // Choose the file diff --git a/EVGEN/AliGenHaloProtvino.cxx b/EVGEN/AliGenHaloProtvino.cxx index d7134eaffd1..8ebb365cac4 100644 --- a/EVGEN/AliGenHaloProtvino.cxx +++ b/EVGEN/AliGenHaloProtvino.cxx @@ -356,7 +356,7 @@ Float_t AliGenHaloProtvino::GassPressureWeight(Float_t zPrimary) return weight; } -void AliGenHaloProtvino::Copy(AliGenHaloProtvino&) const +void AliGenHaloProtvino::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenHaloProtvino.h b/EVGEN/AliGenHaloProtvino.h index bcafd316cd6..c1b9804f326 100644 --- a/EVGEN/AliGenHaloProtvino.h +++ b/EVGEN/AliGenHaloProtvino.h @@ -43,7 +43,7 @@ protected: Float_t fZ1[21], fZ2[21]; // ! z-positions for gas pressure tables Float_t fG1[21][5], fG2[21][5]; // ! gas pressures private: - void Copy(AliGenHaloProtvino&) const; + void Copy(TObject&) const; ClassDef(AliGenHaloProtvino,1) // LHC background boundary source (Protvino Group results) diff --git a/EVGEN/AliGenMC.cxx b/EVGEN/AliGenMC.cxx index 8db3df8a9b1..aeb67fe7a78 100644 --- a/EVGEN/AliGenMC.cxx +++ b/EVGEN/AliGenMC.cxx @@ -343,7 +343,7 @@ AliGenMC& AliGenMC::operator=(const AliGenMC& rhs) return *this; } -void AliGenMC::Copy(AliGenMC&) const +void AliGenMC::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenMC.h b/EVGEN/AliGenMC.h index 94ec9cdf9d7..b8adea6129f 100644 --- a/EVGEN/AliGenMC.h +++ b/EVGEN/AliGenMC.h @@ -68,7 +68,7 @@ class AliGenMC : public AliGenerator // all kinematic selection cuts go here Bool_t KinematicSelection(TParticle *particle, Int_t flag) const; Int_t CheckPDGCode(Int_t pdgcode) const; - void Copy(AliGenMC&) const; + void Copy(TObject&) const; protected: TClonesArray* fParticles; //!Particle List TArrayI fParentSelect; //!Parent particles to be selected diff --git a/EVGEN/AliGenParam.cxx b/EVGEN/AliGenParam.cxx index 84892b4d3cf..fd3d5ed7f7e 100644 --- a/EVGEN/AliGenParam.cxx +++ b/EVGEN/AliGenParam.cxx @@ -454,7 +454,7 @@ void AliGenParam::Generate() SetHighWaterMark(nt); } -void AliGenParam::Draw() +void AliGenParam::Draw( const char * /*opt*/) { // // Draw the pT and y Distributions diff --git a/EVGEN/AliGenParam.h b/EVGEN/AliGenParam.h index bc9a35a891d..4788a2c1d33 100644 --- a/EVGEN/AliGenParam.h +++ b/EVGEN/AliGenParam.h @@ -43,7 +43,7 @@ class AliGenParam : public AliGenMC virtual void SetWeighting(Weighting_t flag = kAnalog) {fAnalog = flag;} virtual void SetDeltaPt(Float_t delta=0.01) {fDeltaPt = delta;} virtual void SetDecayer(AliDecayer* decayer) {fDecayer = decayer;} - virtual void Draw(); + virtual void Draw(const char * opt); AliGenParam & operator=(const AliGenParam & rhs); protected: Double_t (*fPtParaFunc)(Double_t*, Double_t*); //! Pointer to Pt parametrisation function diff --git a/EVGEN/AliGenReader.cxx b/EVGEN/AliGenReader.cxx index 3c1c69f0ca9..e28f4e4eb52 100644 --- a/EVGEN/AliGenReader.cxx +++ b/EVGEN/AliGenReader.cxx @@ -32,7 +32,7 @@ AliGenReader& AliGenReader::operator=(const AliGenReader& rhs) return *this; } -void AliGenReader::Copy(AliGenReader&) const +void AliGenReader::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenReader.h b/EVGEN/AliGenReader.h index 31433698ca8..52947c58a14 100644 --- a/EVGEN/AliGenReader.h +++ b/EVGEN/AliGenReader.h @@ -33,7 +33,7 @@ class AliGenReader : public TObject const Text_t *fFileName; // Name of file to read from Code_t fCode; // Particle code type private: - void Copy(AliGenReader&) const; + void Copy(TObject&) const; ClassDef(AliGenReader,1) //Generate particles from external file }; diff --git a/EVGEN/AliGenReaderCwn.cxx b/EVGEN/AliGenReaderCwn.cxx index 61e2c76e898..8cf8dfe1016 100644 --- a/EVGEN/AliGenReaderCwn.cxx +++ b/EVGEN/AliGenReaderCwn.cxx @@ -138,7 +138,7 @@ AliGenReaderCwn& AliGenReaderCwn::operator=(const AliGenReaderCwn& rhs) return *this; } -void AliGenReaderCwn::Copy(AliGenReaderCwn&) const +void AliGenReaderCwn::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenReaderCwn.h b/EVGEN/AliGenReaderCwn.h index 334ad971e3b..c8602ceaebe 100644 --- a/EVGEN/AliGenReaderCwn.h +++ b/EVGEN/AliGenReaderCwn.h @@ -45,7 +45,7 @@ class AliGenReaderCwn : public AliGenReader Float_t fP; // Total momentum Float_t fE; // Total energy private: - void Copy(AliGenReaderCwn&) const; + void Copy(TObject&) const; ClassDef(AliGenReaderCwn,1) // Read particles from cwn-ntuple }; #endif diff --git a/EVGEN/AliGenReaderEcalHijing.cxx b/EVGEN/AliGenReaderEcalHijing.cxx index 0f12e7ca7d4..8483edd51e7 100644 --- a/EVGEN/AliGenReaderEcalHijing.cxx +++ b/EVGEN/AliGenReaderEcalHijing.cxx @@ -119,7 +119,7 @@ AliGenReaderEcalHijing& AliGenReaderEcalHijing::operator=(const AliGenReaderEca return (*this); } -void AliGenReaderEcalHijing::Copy(AliGenReaderEcalHijing&) const +void AliGenReaderEcalHijing::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenReaderEcalHijing.h b/EVGEN/AliGenReaderEcalHijing.h index f07d23cc436..b858ae7dc66 100644 --- a/EVGEN/AliGenReaderEcalHijing.h +++ b/EVGEN/AliGenReaderEcalHijing.h @@ -44,7 +44,7 @@ class AliGenReaderEcalHijing : public AliGenReader Float_t fPzhij[10000]; // pz Float_t fEhij[10000]; // energy private: - void Copy(AliGenReaderEcalHijing&) const; + void Copy(TObject&) const; ClassDef(AliGenReaderEcalHijing,1) // Read particles from cwn-ntuple }; diff --git a/EVGEN/AliGenReaderEcalJets.cxx b/EVGEN/AliGenReaderEcalJets.cxx index b1e8ffb3d81..8646e5a2f5a 100644 --- a/EVGEN/AliGenReaderEcalJets.cxx +++ b/EVGEN/AliGenReaderEcalJets.cxx @@ -132,7 +132,7 @@ AliGenReaderEcalJets& AliGenReaderEcalJets::operator=(const AliGenReaderEcalJet return (*this); } -void AliGenReaderEcalJets::Copy(AliGenReaderEcalJets&) const +void AliGenReaderEcalJets::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenReaderEcalJets.h b/EVGEN/AliGenReaderEcalJets.h index eb8ca6c5b73..032793cdf02 100644 --- a/EVGEN/AliGenReaderEcalJets.h +++ b/EVGEN/AliGenReaderEcalJets.h @@ -54,7 +54,7 @@ class AliGenReaderEcalJets : public AliGenReader TTree *fTreeNtuple; // pointer to the TTree private: - void Copy(AliGenReaderEcalJets&) const; + void Copy(TObject&) const; ClassDef(AliGenReaderEcalJets,1) // Read particles from cwn-ntuple }; #endif diff --git a/EVGEN/AliGenReaderTreeK.cxx b/EVGEN/AliGenReaderTreeK.cxx index f3e8411468c..035a89981e6 100644 --- a/EVGEN/AliGenReaderTreeK.cxx +++ b/EVGEN/AliGenReaderTreeK.cxx @@ -159,7 +159,7 @@ AliGenReaderTreeK& AliGenReaderTreeK::operator=(const AliGenReaderTreeK& rhs) return *this; } -void AliGenReaderTreeK::Copy(AliGenReaderTreeK&) const +void AliGenReaderTreeK::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenReaderTreeK.h b/EVGEN/AliGenReaderTreeK.h index 7ab6023e922..9445417fe9e 100644 --- a/EVGEN/AliGenReaderTreeK.h +++ b/EVGEN/AliGenReaderTreeK.h @@ -50,7 +50,7 @@ class AliGenReaderTreeK : public AliGenReader TString& GetDirName(Int_t entry); TParticle* GetParticle(Int_t i); private: - void Copy(AliGenReaderTreeK&) const; + void Copy(TObject&) const; ClassDef(AliGenReaderTreeK,1) // Read particles from TreeK }; diff --git a/EVGEN/AliGenSlowNucleons.cxx b/EVGEN/AliGenSlowNucleons.cxx index ea2f417d8ef..1e4568424a7 100644 --- a/EVGEN/AliGenSlowNucleons.cxx +++ b/EVGEN/AliGenSlowNucleons.cxx @@ -264,7 +264,7 @@ AliGenSlowNucleons& AliGenSlowNucleons::operator=(const AliGenSlowNucleons& rhs return *this; } -void AliGenSlowNucleons::Copy(AliGenSlowNucleons&) const +void AliGenSlowNucleons::Copy(TObject&) const { // // Copy diff --git a/EVGEN/AliGenSlowNucleons.h b/EVGEN/AliGenSlowNucleons.h index 776d32886e6..6500e3aac02 100644 --- a/EVGEN/AliGenSlowNucleons.h +++ b/EVGEN/AliGenSlowNucleons.h @@ -47,7 +47,7 @@ public: void GenerateSlow(Int_t charge, Double_t T, Double_t beta, Float_t* q); Double_t Maxwell(Double_t m, Double_t p, Double_t t); void Lorentz(Double_t m, Double_t beta, Float_t* q); - void Copy(AliGenSlowNucleons&) const; + void Copy(TObject&) const; AliGenSlowNucleons & operator=(const AliGenSlowNucleons & rhs); protected: Float_t fCMS; // Center of mass energy diff --git a/EVGEN/PartEloss/integralgauss.f b/EVGEN/PartEloss/integralgauss.f index 3e5b6db4843..b54c58e64db 100644 --- a/EVGEN/PartEloss/integralgauss.f +++ b/EVGEN/PartEloss/integralgauss.f @@ -6,9 +6,7 @@ REAL*8 a1,b1,diff1,d1,sr,sd,EPS,fu1r,fu1d EXTERNAL eloss_func1, eloss_func2 PARAMETER (EPS=1.e-9, JMAX=12) - INTEGER j,j1 - REAL*8 osr,ostr,str - REAL*8 del,sumr,x + REAL*8 osr,ostr ostr=-1.e10 osr=-1.e10 a1=0.0 @@ -37,7 +35,6 @@ REAL*8 funr,yy,fund REAL*8 xr,length,noc,qq,nnorm,rri,fracc COMMON /input/ xr,length,noc,qq,nnorm,rri,fracc - REAL*8 fragm EXTERNAL eloss_lookup REAL*8 cont, disc, wwt, tepsi * @@ -146,7 +143,7 @@ c fragmbkk = (fragv+frags) FUNCTION eloss_fragm(xxx,qqq) REAL*8 alpha, beta, gamma, n - REAL*8 sbar, xx, qq, xxx, qqq, lambda, fragv, frags + REAL*8 sbar, xx, qq, xxx, qqq, lambda * xx = xxx qq = qqq diff --git a/EVGEN/PartEloss/read.f b/EVGEN/PartEloss/read.f index 6881c3966d0..5ed1eed125f 100644 --- a/EVGEN/PartEloss/read.f +++ b/EVGEN/PartEloss/read.f @@ -4,7 +4,6 @@ * CHARACTER*100 CHROOT CHARACTER*100 FILNAM - LOGICAL EXISTS CHROOT=' ' CALL GETENVF('ALICE_ROOT',CHROOT) LNROOT = LNBLNK(CHROOT) diff --git a/EVGEN/PartEloss/readca3.f b/EVGEN/PartEloss/readca3.f index 30cb3b14bb4..bd569a28109 100644 --- a/EVGEN/PartEloss/readca3.f +++ b/EVGEN/PartEloss/readca3.f @@ -4,7 +4,6 @@ * CHARACTER*100 CHROOT CHARACTER*100 FILNAM - LOGICAL EXISTS CHROOT=' ' CALL GETENVF('ALICE_ROOT',CHROOT) LNROOT = LNBLNK(CHROOT) -- 2.39.3