* provided "as is" without express or implied warranty. *
**************************************************************************/
-/*
-$Log$
-Revision 1.1.2.1 2002/07/24 08:56:29 alibrary
-Updating EVGEN on TVirtulaMC
-
-Revision 1.1 2002/07/15 13:12:33 morsch
-Library class for parton quenching calculations.
-
-*/
+/* $Id$ */
+//
+// Calculate parton energy loss
+// in nucleus nucleus
+// reactions via calculation
+// of quenching weights
+// Author: A.Morsch
+//
#include "AliPartonicEnergyLoss.h"
#include <TMath.h>
#ifndef WIN32
-# define lookup lookup_
-# define read read_
-# define readca3 readca3_
+# define eloss_lookup eloss_lookup_
+# define eloss_read eloss_read_
+# define eloss_readca3 eloss_readca3_
# define type_of_call
#else
-# define lookup LOOKUP
-# define read READ
-# define readca3 READCA3
+# define eloss_lookup ELOSS_LOOKUP
+# define eloss_read ELOSS_READ
+# define eloss_readca3 ELOSS_READCA3
# define type_of_call _stdcall
#endif
-extern "C" void type_of_call lookup(Double_t &, Double_t &,
+extern "C" void type_of_call eloss_lookup(Double_t &, Double_t &,
Double_t &, Double_t &);
-extern "C" void type_of_call read();
-extern "C" void type_of_call readca3();
+extern "C" void type_of_call eloss_read();
+extern "C" void type_of_call eloss_readca3();
ClassImp(AliPartonicEnergyLoss)
//
// Calculate quenching weight
//
- lookup(r,x,cont,disc);
+ eloss_lookup(r,x,cont,disc);
}
void AliPartonicEnergyLoss::RunTest()
//
// Read data
//
- read();
- readca3();
+ eloss_read();
+ eloss_readca3();
}