TFluka/queffc.cxx

   1 #include "Fdimpar.h"  //(DIMPAR) fluka include
   2 #include "Ftrackr.h"  //(TRACKR) fluka common
   3 #include "Fiounit.h"  //(IOUNIT) fluka common
   4 #include "Fopphcm.h"  //(OPPHCM) fluka common
   5 #include "TGeoMaterial.h"
   6 #include "TFlukaCerenkov.h"
   7 #include "TFlukaGeo.h"
   8 #include "TGeoManager.h"
   9
  10 #ifndef WIN32
  11 # define queffc queffc_
  12 #else
  13 # define queffc QUEFFC
  14 #endif
  15 extern "C" {
  16 Double_t queffc(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
  17 {
  18     printf("queffc called  %e %e %d \n", wvlngt, omgpho, mmat);
  19     TFluka* fluka =  (TFluka*) gMC;
  20     TGeoMaterial*    material =  (TGeoMaterial*) (gGeoManager->GetListOfMaterials())->At(fluka->GetMaterialIndex(mmat));
  21     TFlukaCerenkov*  cerenkov = dynamic_cast<TFlukaCerenkov*> (material->GetCerenkovProperties());
  22     return (cerenkov->GetQuantumEfficiencyByWaveLength(wvlngt));
  23 }
  24 }