Adding abbreviation (Lars Bozyk)

[u/mrichter/AliRoot.git] / TFluka / rfrndx.cxx

diff --git a/TFluka/rfrndx.cxx b/TFluka/rfrndx.cxx
index 134c86b2a2cd2951793385ea287fb0364652531d..9f582583404aaea5257e1ce4792f546269ef8ed7 100644 (file)
--- a/TFluka/rfrndx.cxx
+++ b/TFluka/rfrndx.cxx
@@ -1,16 +1,25 @@
 #include "Fdimpar.h"  //(DIMPAR) fluka include
 #include "Ftrackr.h"  //(TRACKR) fluka common
 #include "Fiounit.h"  //(IOUNIT) fluka common
+#include "TFluka.h"
+#include "TGeoMaterial.h"
+#include "TFlukaCerenkov.h"
+
 #ifndef WIN32
 # define rfrndx rfrndx_
 #else
 # define rfrndx RFRNDX
 #endif
 extern "C" {
-Double_t rfrndx(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
+Double_t rfrndx(Double_t& wvlngt, Double_t& /*omgpho*/, Int_t& mmat)
 {
-    printf("rfrndx called  %e %e %d \n", wvlngt, omgpho, mmat);
-    return (0.);
+//
+//  Return refraction index for given photon energy and material
+//
+    TFluka* fluka =  (TFluka*) gMC;
+    TGeoMaterial*    material =  (TGeoMaterial*) (fluka->GetFlukaMaterials())->At(fluka->GetMaterialIndex(mmat));
+    TFlukaCerenkov*  cerenkov = dynamic_cast<TFlukaCerenkov*> (material->GetCerenkovProperties());
+    Double_t y =  (cerenkov->GetRefractionIndexByWaveLength(wvlngt));
+    return (y);
 }
 }
-