1 #include "Fdimpar.h" //(DIMPAR) fluka include
2 #include "Fdblprc.h" //(DBLPRC) fluka include
3 #include "Fiounit.h" //(IOUNIT) fluka common
4 #include "Fflkmat.h" //(FLKMAT) fluka common
5 #include "Fscohlp.h" //(SCOHLP) fluka common
6 #include "Fsouevt.h" //(SOUEVT) fluka common
12 #define type_of_call _stdcall
14 const Double_t oned = 1.00000e+00;
15 const Double_t factr = 1.60217e-07;
16 extern "C" double type_of_call comscw(int& ij, double& xa, double& ya, double& za,
17 int& mreg, double& rull, int& llo, int& icall)
23 SCOHLP.lsczer = kFALSE;
24 if (FLKMAT.rho[FLKMAT.medium[mreg]] < 1.0e-15)
28 if (SCOHLP.iscrng == 1 ) {
29 // printf("comscw %f %f %f %f %f \n", FLKMAT.rho[FLKMAT.medium[mreg]], 4.1e+15*rull*factr/FLKMAT.rho[FLKMAT.medium[mreg]], xa, ya, za);
30 return factr/FLKMAT.rho[FLKMAT.medium[mreg]];