[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
#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);
    if (wvlngt  > OPPHCM.wvmxsn || wvlngt < OPPHCM.wvmnsn) {
	return (0.);
    } else {
	return (OPPHCM.opsnmx);
    }
}
}
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
	5	#ifndef WIN32
	6	# define queffc queffc_
	7	#else
	8	# define queffc QUEFFC
	9	#endif
	10	extern "C" {
	11	Double_t queffc(Double_t& wvlngt, Double_t& omgpho, Int_t& mmat)
	12	{
	13	printf("queffc called %e %e %d \n", wvlngt, omgpho, mmat);
	14	if (wvlngt > OPPHCM.wvmxsn \|\| wvlngt < OPPHCM.wvmnsn) {
	15	return (0.);
	16	} else {
	17	return (OPPHCM.opsnmx);
	18	}
	19	}
	20	}