Common blocks to access material properties and
[u/mrichter/AliRoot.git] / TFluka / sodraw.cxx
CommitLineData
fa3d1cc7 1#include <Riostream.h>
7dac99f1 2#include "TVirtualMCApplication.h"
a7bb59a2 3
fa3d1cc7 4#include "TFluka.h"
d566901f 5#include "TFlukaCodes.h"
a7bb59a2 6
fa3d1cc7 7#ifndef WIN32
8# define sodraw sodraw_
9#else
10# define sodraw SODRAW
11#endif
12extern "C" {
13void sodraw()
14{
d566901f 15 ((TFluka*) gMC)->SetCaller(kSODRAW);
16 ((TFluka*) gMC)->SetIcode((FlukaProcessCode_t)0);
fa3d1cc7 17} // end of sodraw
18} // end of extern "C"
19