TFluka/sodraw.cxx

   1 #include <Riostream.h>
   2 #include "TVirtualMCApplication.h"
   3
   4 #include "TFluka.h"
   5 #include "TFlukaCodes.h"
   6
   7 #ifndef WIN32
   8 # define sodraw sodraw_
   9 #else
  10 # define sodraw SODRAW
  11 #endif
  12 extern "C" {
  13 void sodraw()
  14 {
  15   ((TFluka*) gMC)->SetCaller(kSODRAW);
  16   ((TFluka*) gMC)->SetIcode((FlukaProcessCode_t)0);
  17 } // end of sodraw
  18 } // end of extern "C"
  19