00001 #ifndef AGILE_RAPGAP_WRAPPER_HH 00002 #define AGILE_RAPGAP_WRAPPER_HH 00003 00004 #include <ctype.h> 00005 #include "AGILe/FortranWrappers.hh" 00006 00007 00008 extern "C" { 00009 #define FC_GRAINI FC_FUNC(graini, GRAINI) 00010 void FC_GRAINI(); 00011 #define FC_Steer FC_FUNC(steer, Steer) 00012 void FC_Steer(); 00013 #define FC_RAPGAP FC_FUNC(rapgap, RAPGAP) 00014 void FC_RAPGAP(); 00015 #define FC_rapcha FC_FUNC(rapcha, rapcha) 00016 void FC_rapcha(); 00017 #define FC_HERCHA FC_FUNC(hercha, HERCHA) 00018 void FC_HERCHA(); 00019 #define FC_PYTCHA FC_FUNC(pytcha, PYTCHA) 00020 void FC_PYTCHA(); 00021 #define FC_ARICHA FC_FUNC(aricha, ARICHA) 00022 void FC_ARICHA(); 00023 #define FC_ARINIT FC_FUNC(arinit, ARINIT) 00024 void FC_ARINIT(const char *); 00025 #define FC_RAEND FC_FUNC(raend, RAEND) 00026 void FC_RAEND(int *); 00027 #define FC_EVENT FC_FUNC(event, EVENT) 00028 void FC_EVENT(); 00029 #define FC_PTIME FC_FUNC(ptime, PTIME) 00030 void FC_PTIME(const char *, int* , int* ); 00031 // Pythia routines 00032 #define FC_PYHEPC FC_FUNC(pyhepc, PYHEPC) 00033 void FC_PYHEPC(int*); 00034 //#define FC_RM48IN FC_FUNC(rm48in, RM48IN) 00035 //void FC_RM48IN(int ISEED, int N1, int N2); 00036 00037 00038 } 00039 00040 void call_graini(); 00041 void call_ptime(const char * name, int j, int k); 00042 void call_steer(); 00043 void call_rapgap(); 00044 void call_rapcha(); 00045 void call_hercha(); 00046 void call_pytcha(); 00047 void call_aricha(); 00048 void call_arinit(const char * name); 00049 00050 // A pythia routine 00051 void call_pyhepc(int mode); 00052 00053 void call_raend(int i); 00054 void call_event(); 00055 // This is for setting the random seed 00056 //void call_rm48in(int ISEED, int N1, int N2); 00057 #endif