9 #include "Fdimpar.h" //(DIMPAR) fluka include
10 #include "Ftrackr.h" //(TRACKR) fluka common
12 # define bxdraw bxdraw_
14 # define bxdraw BXDRAW
17 void bxdraw(Int_t& icode, Int_t& mreg, Int_t& newreg,
18 Double_t& xsco, Double_t& ysco, Double_t& zsco)
20 TFluka* fluka = (TFluka*) gMC;
22 fluka->SetIcode(icode);
23 fluka->SetNewreg(newreg);
27 Int_t verbosityLevel = fluka->GetVerbosityLevel();
28 Bool_t debug = (verbosityLevel>=3)?kTRUE:kFALSE;
30 // Double step for boundary crossing
32 if (debug) printf("bxdraw (ex) \n");
33 fluka->SetTrackIsExiting();
36 (TVirtualMCApplication::Instance())->Stepping();
37 if (debug) printf("bxdraw (en) \n");
39 fluka->SetTrackIsEntering();
40 fluka->SetMreg(newreg);
41 (TVirtualMCApplication::Instance())->Stepping();
42 fluka->SetTrackIsNew(kFALSE);
44 } // end of extern "C"