2 //###################################################################
3 //# EPOS 1.67 K. WERNER, T. PIEROG, S. PORTEBOEUF. #
4 //# Contact: werner@subatech.in2p3.fr #
5 //###################################################################
9 // Definitions of EPOS subroutines used in the interface.
11 // Author: Piotr Ostrowski, postrow@if.pw.edu.pl
20 #define atitle atitle_
21 #define xiniall xiniall_
24 #define IniModel inimodel_
28 #define bstora bstora_
29 #define bstore bstore_
30 #define ustore ustore_
32 #define astati astati_
33 #define bfinal bfinal_
34 #define setinp setinp_
42 #define xiniall XINIALL
45 #define IniModel INIMODEL
56 #define type_of_call _stdcall
63 extern "C" void type_of_call aaset(const Int_t &);
64 extern "C" void type_of_call atitle();
65 extern "C" void type_of_call xiniall();
66 extern "C" void type_of_call aread();
67 extern "C" void type_of_call utpri(const char *, Int_t &, Int_t &, const Int_t &, int);
68 extern "C" void type_of_call IniModel(Int_t &);
69 extern "C" void type_of_call ainit();
70 extern "C" void type_of_call aseed(const Int_t &);
71 extern "C" void type_of_call xana();
72 extern "C" void type_of_call bstora();
73 extern "C" void type_of_call bstore();
74 extern "C" void type_of_call ustore();
75 extern "C" void type_of_call evgen(Int_t &);
76 extern "C" void type_of_call astati();
77 extern "C" void type_of_call bfinal();
78 extern "C" void type_of_call setinp(const char *, Int_t &, int);