12 PTRTYPE lcmcpcreate() ;
13 int lcmcpdelete( PTRTYPE mcparticle ) ;
14 int lcmcpgetnumberofparents( PTRTYPE mcparticle ) ;
15 PTRTYPE lcmcpgetparent( PTRTYPE mcparticle ,
int i ) ;
17 PTRTYPE lcmcpgetdaughter( PTRTYPE mcparticle,
int i ) ;
18 int lcmcpgetendpoint( PTRTYPE mcparticle,
double* ep) ;
19 int lcmcpgetnumberofdaughters( PTRTYPE mcparticle ) ;
20 int lcmcpgetpdg( PTRTYPE mcparticle ) ;
21 int lcmcpgetgeneratorstatus( PTRTYPE mcparticle ) ;
22 int lcmcpgetsimulatorstatus( PTRTYPE mcparticle ) ;
23 int lcmcpgetvertex( PTRTYPE mcparticle,
double* vtx ) ;
24 float lcmcpgettime( PTRTYPE mcparticle ) ;
25 int lcmcpgetmomentum( PTRTYPE mcparticle,
double* p) ;
26 double lcmcpgetmass( PTRTYPE mcparticle ) ;
27 float lcmcpgetcharge( PTRTYPE mcparticle ) ;
28 double lcmcpgetenergy( PTRTYPE mcparticle ) ;
29 int lcmcpgetspin( PTRTYPE mcparticle,
float* spin ) ;
30 int lcmcpgetcolorflow( PTRTYPE mcparticle,
int* cflow ) ;
32 int lcmcpaddparent( PTRTYPE mcparticle, PTRTYPE parent ) ;
35 int lcmcpsetpdg( PTRTYPE mcparticle,
int pdg ) ;
36 int lcmcpsetgeneratorstatus( PTRTYPE mcparticle,
int status ) ;
37 int lcmcpsetsimulatorstatus( PTRTYPE mcparticle,
int status ) ;
38 int lcmcpsetvertex( PTRTYPE mcparticle,
double vtx[3] ) ;
39 int lcmcpsetendpoint( PTRTYPE mcparticle,
double pnt[3] ) ;
40 int lcmcpsetmomentum( PTRTYPE mcparticle,
float p[3] );
41 int lcmcpsetmass( PTRTYPE mcparticle,
float m) ;
42 int lcmcpsetcharge( PTRTYPE mcparticle,
float c ) ;
43 int lcmcpsetspin( PTRTYPE mcparticle,
float spin[3] ) ;
44 int lcmcpsetcolorflow( PTRTYPE mcparticle,
int cflow[2] ) ;
48 FCALLSCFUN0(CFORTRANPNTR, lcmcpcreate,LCMCPCREATE, lcmcpcreate )
49 FCALLSCFUN1(INT, lcmcpdelete, LCMCPDELETE, lcmcpdelete, CFORTRANPNTR )
51 FCALLSCFUN1(INT, lcmcpgetnumberofparents, LCMCPGETNUMBEROFPARENTS, lcmcpgetnumberofparents, CFORTRANPNTR )
52 FCALLSCFUN2(CFORTRANPNTR, lcmcpgetparent, LCMCPGETPARENT, lcmcpgetparent, CFORTRANPNTR , INT)
54 FCALLSCFUN2(CFORTRANPNTR, lcmcpgetdaughter,lcmcpgetdaughter,lcmcpgetdaughter, CFORTRANPNTR, INT )
55 FCALLSCFUN2(INT, lcmcpgetendpoint,LCMCPGETENDPOINT,lcmcpgetendpoint, CFORTRANPNTR, DOUBLEV )
56 FCALLSCFUN1(INT, lcmcpgetnumberofdaughters, LCMCPGETNUMBEROFDAUGHTERS, lcmcpgetnumberofdaughters, CFORTRANPNTR )
57 FCALLSCFUN1(INT, lcmcpgetpdg,LCMCPGETPDG, lcmcpgetpdg, CFORTRANPNTR )
58 FCALLSCFUN1(INT, lcmcpgetgeneratorstatus, LCMCPGETGENERATORSTATUS, lcmcpgetgeneratorstatus, CFORTRANPNTR )
59 FCALLSCFUN1(INT, lcmcpgetsimulatorstatus, LCMCPGETSIMULATORSTATUS, lcmcpgetsimulatorstatus, CFORTRANPNTR )
60 FCALLSCFUN2(INT, lcmcpgetvertex,LCMCPGETVERTEX,lcmcpgetvertex, CFORTRANPNTR, DOUBLEV )
61 FCALLSCFUN1(FLOAT, lcmcpgettime, LCMCPGETTIME, lcmcpgettime, CFORTRANPNTR )
62 FCALLSCFUN2(INT, lcmcpgetmomentum,LCMCPGETMOMENTUM,lcmcpgetmomentum, CFORTRANPNTR, DOUBLEV )
63 FCALLSCFUN1(DOUBLE, lcmcpgetmass, LCMCPGETMASS, lcmcpgetmass, CFORTRANPNTR )
64 FCALLSCFUN1(FLOAT, lcmcpgetcharge,LCMCPGETCHARGE,lcmcpgetcharge, CFORTRANPNTR )
65 FCALLSCFUN1(DOUBLE, lcmcpgetenergy, LCMCPGETENERGY, lcmcpgetenergy, CFORTRANPNTR )
66 FCALLSCFUN2(INT, lcmcpgetspin, LCMCPGETSPIN, lcmcpgetspin, CFORTRANPNTR, FLOATV)
67 FCALLSCFUN2(INT, lcmcpgetcolorflow, LCMCPGETCOLORFLOW, lcmcpgetcolorflow, CFORTRANPNTR, INTV)
70 FCALLSCFUN2(INT, lcmcpaddparent,LCMCPADDPARENT,lcmcpaddparent, CFORTRANPNTR, CFORTRANPNTR )
73 FCALLSCFUN2(INT, lcmcpsetpdg,LCMCPSETPDG,lcmcpsetpdg, CFORTRANPNTR, INT )
74 FCALLSCFUN2(INT, lcmcpsetgeneratorstatus,LCMCPSETGENERATORSTATUS,lcmcpsetgeneratorstatus, CFORTRANPNTR, INT )
75 FCALLSCFUN2(INT, lcmcpsetsimulatorstatus,LCMCPSETSIMULATORSTATUS,lcmcpsetsimulatorstatus, CFORTRANPNTR, INT )
76 FCALLSCFUN2(INT, lcmcpsetvertex,LCMCPSETVERTEX,lcmcpsetvertex, CFORTRANPNTR, DOUBLEV )
77 FCALLSCFUN2(INT, lcmcpsetendpoint,LCMCPSETENDPOINT,lcmcpsetendpoint, CFORTRANPNTR, DOUBLEV )
78 FCALLSCFUN2(INT, lcmcpsetmomentum,LCMCPSETMOMENTUM,lcmcpsetmomentum, CFORTRANPNTR, FLOATV )
79 FCALLSCFUN2(INT, lcmcpsetmass,LCMCPSETMASS,lcmcpsetmass, CFORTRANPNTR, FLOAT )
80 FCALLSCFUN2(INT, lcmcpsetcharge, LCMCPSETCHARGE, lcmcpsetcharge, CFORTRANPNTR, FLOAT )
81 FCALLSCFUN2(INT, lcmcpsetspin, LCMCPSETSPIN, lcmcpsetspin, CFORTRANPNTR, FLOATV)
82 FCALLSCFUN2(INT, lcmcpsetcolorflow, LCMCPSETCOLORFLOW, lcmcpsetcolorflow, CFORTRANPNTR, INTV)