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

#include "Fdimpar.h"  //(DIMPAR) fluka include
#include "Ftrackr.h"  //(TRACKR) fluka common
#include "Fiounit.h"  //(IOUNIT) fluka common
#include "Fopphcm.h"  //(OPPHCM) fluka common
#include "TGeoMaterial.h"
#include "TFlukaCerenkov.h"
#include "TFlukaGeo.h"
#include "TGeoManager.h"

#ifndef WIN32
# define queffc queffc_
#else
# define queffc QUEFFC
#endif
extern "C" {
Double_t queffc(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
{
    printf("queffc called  %e %e %d \n", wvlngt, omgpho, mmat);
    TFluka* fluka =  (TFluka*) gMC;
    TGeoMaterial*    material =  (TGeoMaterial*) (gGeoManager->GetListOfMaterials())->At(fluka->GetMaterialIndex(mmat));
    TFlukaCerenkov*  cerenkov = dynamic_cast<TFlukaCerenkov*> (material->GetCerenkovProperties());
    return (cerenkov->GetQuantumEfficiencyByWaveLength(wvlngt));
}
}
Commit	Line	Data
1b866d4b	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
1b904a0d	5	#include "TGeoMaterial.h"
	6	#include "TFlukaCerenkov.h"
	7	#include "TFlukaGeo.h"
	8	#include "TGeoManager.h"
	9
1b866d4b	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);
1b904a0d	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));
1b866d4b	23	}
1b866d4b	24	}