Obsolete files removed.
[u/mrichter/AliRoot.git] / EVGEN / AliPartonicEnergyLoss.cxx
index f5e00eaca7256f002e6d4e1fa173e28ee175c6df..38fad5bd50c23ea24497b61be9b7827e16f3f7fb 100644 (file)
  * provided "as is" without express or implied warranty.                  *
  **************************************************************************/
 
  * 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
 
 #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 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
 
 
 # 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 &);
                                    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)
 
 
 ClassImp(AliPartonicEnergyLoss)
@@ -55,7 +54,7 @@ QuenchingWeight(Double_t r, Double_t x, Double_t& cont, Double_t& disc)
 //
 //  Calculate quenching weight
 //
 //
 //  Calculate quenching weight
 //
-    lookup(r,x,cont,disc);
+    eloss_lookup(r,x,cont,disc);
 }
 
 void AliPartonicEnergyLoss::RunTest()
 }
 
 void AliPartonicEnergyLoss::RunTest()
@@ -81,7 +80,7 @@ void AliPartonicEnergyLoss::Init()
 //
 //  Read data
 //
 //
 //  Read data
 //
-    read();
-    readca3();
+    eloss_read();
+    eloss_readca3();
 }
 
 }