Adaption to new fluka common blocks (E. Futo)
[u/mrichter/AliRoot.git] / TFluka / endraw.cxx
1 #include <Riostream.h>
2 #include "TVirtualMCApplication.h"
3 #include "TFluka.h"
4 #include "Fdimpar.h"  //(DIMPAR) fluka include
5 #include "Ftrackr.h"  //(TRACKR) fluka common
6 #ifndef WIN32
7 # define endraw endraw_
8 #else
9 # define endraw ENDRAW
10 #endif
11 extern "C" {
12 void endraw(Int_t& icode, Int_t& mreg, Double_t& rull, Double_t& xsco, Double_t& ysco, Double_t& zsco)
13 {
14   ((TFluka*) gMC)->SetCaller(3);
15   ((TFluka*) gMC)->SetIcode(icode);
16   ((TFluka*) gMC)->SetRull(rull);
17   ((TFluka*) gMC)->SetXsco(xsco);
18   ((TFluka*) gMC)->SetYsco(ysco);
19   ((TFluka*) gMC)->SetZsco(zsco);
20   (TVirtualMCApplication::Instance())->Stepping();
21 } // end of endraw
22 } // end of extern "C"
23