+//_____________________________________________________________________________
+Double_t AliTRDsim::GetMuAi(Double_t energyMeV)
+{
+ //
+ // Returns the photon absorbtion cross section for air
+ // Implemented by Oliver Busch
+ //
+
+ const Int_t kN = 38;
+
+ Double_t mu[kN] = { 0.35854E+04, 0.11841E+04, 0.52458E+03,
+ 0.16143E+03, 0.14250E+03, 0.15722E+03,
+ 0.77538E+02, 0.40099E+02, 0.23313E+02,
+ 0.98816E+01, 0.51000E+01, 0.16079E+01,
+ 0.77536E+00, 0.35282E+00, 0.24790E+00,
+ 0.20750E+00, 0.18703E+00, 0.16589E+00,
+ 0.15375E+00, 0.13530E+00, 0.12311E+00,
+ 0.10654E+00, 0.95297E-01, 0.86939E-01,
+ 0.80390E-01, 0.70596E-01, 0.63452E-01,
+ 0.56754E-01, 0.51644E-01, 0.44382E-01,
+ 0.35733E-01, 0.30721E-01, 0.27450E-01,
+ 0.25171E-01, 0.22205E-01, 0.20399E-01,
+ 0.18053E-01, 0.18057E-01 };
+
+
+
+ Double_t en[kN] = { 0.10000E-02, 0.15000E-02, 0.20000E-02,
+ 0.30000E-02, 0.32029E-02, 0.32029E-02,
+ 0.40000E-02, 0.50000E-02, 0.60000E-02,
+ 0.80000E-02, 0.10000E-01, 0.15000E-01,
+ 0.20000E-01, 0.30000E-01, 0.40000E-01,
+ 0.50000E-01, 0.60000E-01, 0.80000E-01,
+ 0.10000E+00, 0.15000E+00, 0.20000E+00,
+ 0.30000E+00, 0.40000E+00, 0.50000E+00,
+ 0.60000E+00, 0.80000E+00, 0.10000E+01,
+ 0.12500E+01, 0.15000E+01, 0.20000E+01,
+ 0.30000E+01, 0.40000E+01, 0.50000E+01,
+ 0.60000E+01, 0.80000E+01, 0.10000E+02,
+ 0.15000E+02, 0.20000E+02 };
+
+ return Interpolate(energyMeV,en,mu,kN);
+
+}
+