4 #include "StarCallf77.h"
28 #define address_of_hepeup F77_NAME( address_of_hepeup, ADDRESS_OF_HEPEUP )
46 Int_t _mothup[500][2];
47 Int_t _icolup[500][2];
48 Double_t _pup[500][5];
49 Double_t _vtimup[500];
50 Double_t _spinup[500];
52 Int_t &idup( Int_t i ){
return _idup[i-1]; }
53 Int_t &istup( Int_t i ){
return _istup[i-1]; }
54 Int_t &mothup( Int_t i, Int_t j ){
return _mothup[j-1][i-1]; }
55 Int_t &icolup( Int_t i, Int_t j ){
return _icolup[j-1][i-1]; }
56 Double_t &pup( Int_t i, Int_t j ){
return _pup[j-1][i-1]; }
57 Double_t &vtimup( Int_t i ){
return _vtimup[i-1]; }
58 Double_t &spinup( Int_t i ){
return _spinup[i-1]; }
60 extern "C" HEPEUP_t *address_of_hepeup();
62 #define address_of_hwgup F77_NAME( adress_of_hwgup, ADDRESS_OF_HWGUP )
70 Int_t &iloc( Int_t i ){
return _iloc[i-1]; }
71 Int_t &jloc( Int_t i ){
return _jloc[i-1]; }
73 extern "C" HWGUP_t *address_of_hwgup();
75 #define address_of_hepevt F77_NAME( address_of_hepevt, ADDRESS_OF_HEPEVT )
88 Int_t _jmohep[4000][2];
89 Int_t _jdahep[4000][2];
90 Double_t _phep[4000][2];
91 Double_t _vhep[4000][4];
93 Int_t &isthep( Int_t i ){
return _isthep[i-1]; }
94 Int_t &idhep( Int_t i ){
return _idhep[i-1]; }
95 Int_t &jmohep( Int_t i, Int_t j ){
return _jmohep[j-1][i-1]; }
96 Int_t &jdahep( Int_t i, Int_t j ){
return _jdahep[j-1][i-1]; }
97 Double_t &phep( Int_t i, Int_t j ){
return _phep[j-1][i-1]; }
98 Double_t &vhep( Int_t i, Int_t j ){
return _vhep[j-1][i-1]; }
100 extern "C" HEPEVT_t *address_of_hepevt();
102 #define address_of_hwbeam F77_NAME( address_of_hwbeam, ADDRESS_OF_HWBEAM )
110 extern "C" HWBEAM_t *address_of_hwbeam();
112 #define address_of_hwproc F77_NAME( address_of_hwproc, ADDRESS_OF_HWPROC )
124 extern "C" HWPROC_t *address_of_hwproc();
126 #define address_of_hwpram F77_NAME( address_of_hwpram, ADDRESS_OF_HWPRAM )
149 Double_t _afch[2][16];
191 Double_t _vfch[2][16];
192 Double_t _vckm[3][3];
232 Double_t &afch( Int_t i, Int_t j ){
return _afch[j-1][i-1]; }
233 Double_t &clsmr( Int_t i ){
return _clsmr[i-1]; }
234 Double_t &psplt( Int_t i ){
return _psplt[i-1]; }
235 Double_t &qfch( Int_t i ){
return _qfch[i-1]; }
236 Double_t &vfch( Int_t i, Int_t j ){
return _vfch[j-1][i-1]; }
237 Double_t &vckm( Int_t i, Int_t j ){
return _vckm[j-1][i-1]; }
238 Int_t &modpdf( Int_t i ){
return _modpdf[i-1]; }
239 Int_t &iop4jt( Int_t i ){
return _iop4jt[i-1]; }
240 Int_t &cldir( Int_t i ){
return _cldir[i-1]; }
242 extern "C" HWPRAM_t *address_of_hwpram();
244 #define address_of_hwbrch F77_NAME( address_of_hwbrch, ADDRESS_OF_HWBRCH )
250 Double_t _anomsc[2][2];
252 Double_t _ptint[2][3];
256 Double_t &anomsc( Int_t i, Int_t j ){
return _anomsc[j-1][i-1]; }
257 Double_t &ptint( Int_t i, Int_t j ){
return _ptint[j-1][i-1]; }
259 extern "C" HWBRCH_t *address_of_hwbrch();
261 #define address_of_hwevnt F77_NAME( address_of_hwevnt, ADDRESS_OF_HWEVNT )
292 Int_t &idhw( Int_t i ){
return _idhw[i-1]; }
293 Int_t &nrn( Int_t i ){
return _nrn[i-1]; }
295 extern "C" HWEVNT_t *address_of_hwevnt();
297 #define address_of_hwhard F77_NAME( address_of_hwhard, ADDRESS_OF_HWHARD )
319 Double_t _disf[2][13];
377 Double_t &clq( Int_t i, Int_t j ){
return _clq[j-1][i-1]; }
378 Double_t &disf( Int_t i, Int_t j){
return _disf[j-1][i-1]; }
379 Double_t &epoln( Int_t i ){
return _epoln[i-1]; }
380 Double_t &gcoef( Int_t i ){
return _gcoef[i-1]; }
381 Double_t &ppoln( Int_t i ){
return _ppoln[i-1]; }
382 Double_t &xx( Int_t i ){
return _xx[i-1]; }
383 Int_t &ibrn( Int_t i ){
return _ibrn[i-1]; }
384 Int_t &ico( Int_t i ){
return _ico[i-1]; }
385 Int_t &idn( Int_t i ){
return _idn[i-1]; }
386 Int_t &mapq( Int_t i ){
return _mapq[i-1]; }
388 extern "C" HWHARD_t *address_of_hwhard();
390 #define address_of_custom F77_NAME( address_of_custom, ADDRESS_OF_CUSTOM )
396 extern "C" CUSTOM_t *address_of_custom();
398 void HWSetBeams(
string part1,
string part2 );
400 void InitializeEvent( vector<string> particles );
402 void GenerateEvent();