7 #define energies F77_NAME(energies,ENERGIES)
8 #define sys F77_NAME(sys,SYS)
9 #define rsys F77_NAME(rsys,RSYS)
10 #define cuts F77_NAME(cuts,CUTS)
11 #define spdata F77_NAME(spdata,SPDATA)
12 #define isys F77_NAME(isys,ISYS)
13 #define coor F77_NAME(coor,COOR)
14 #define frag F77_NAME(frag,FRAG)
15 #define aios F77_NAME(aios,AIOS)
16 #define pots F77_NAME(pots,POTS)
17 #define scoor F77_NAME(scoor,SCOOR)
18 #define sisys F77_NAME(sisys,SISYS)
19 #define ssys F77_NAME(ssys,SSYS)
20 #define rtdelay F77_NAME(rtdelay,RTDELAY)
21 #define itdelay F77_NAME(itdelay,ITDELAY)
22 #define svinfo F77_NAME(svinfo,SVINFO)
23 #define ffermi F77_NAME(ffermi,FFERMI)
24 #define peq F77_NAME(peq,PEQ)
25 #define ranf F77_NAME(ranf,RANF)
26 #define iurqmd F77_NAME(iurqmd,IURQMD)
27 #define genevt F77_NAME(genevt,GENEVT)
29 extern "C" void type_of_call energies();
30 extern "C" void type_of_call sys();
31 extern "C" void type_of_call rsys();
32 extern "C" void type_of_call cuts();
33 extern "C" void type_of_call spdata();
34 extern "C" void type_of_call isys();
35 extern "C" void type_of_call coor();
36 extern "C" void type_of_call frag();
37 extern "C" void type_of_call aios();
38 extern "C" void type_of_call pots();
39 extern "C" void type_of_call scoor();
40 extern "C" void type_of_call sisys();
41 extern "C" void type_of_call ssys();
42 extern "C" void type_of_call rtdelay();
43 extern "C" void type_of_call itdelay();
44 extern "C" void type_of_call svinfo();
45 extern "C" void type_of_call ffermi();
46 extern "C" void type_of_call peq();
47 extern "C" void type_of_call ranf();
48 extern "C" void type_of_call iurqmd();
49 extern "C" void type_of_call genevt();
1.8.5