LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcmcp.h
1 
6 #include "cfortran.h"
7 #include "cpointer.h"
8 
9 // Warning: dont use "_" in function names as this causes two many
10 // trailing underscores on Linux
11 
12 PTRTYPE lcmcpcreate() ;
13 int lcmcpdelete( PTRTYPE mcparticle ) ;
14 int lcmcpgetnumberofparents( PTRTYPE mcparticle ) ;
15 PTRTYPE lcmcpgetparent( PTRTYPE mcparticle , int i ) ;
16 // PTRTYPE lcmcpgetsecondparent( PTRTYPE mcparticle ) ;
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 ) ;
31 
32 int lcmcpaddparent( PTRTYPE mcparticle, PTRTYPE parent ) ;
33 // int lcmcpsetsecondparent( PTRTYPE mcparticle, PTRTYPE parent ) ;
34 // int lcmcpadddaughter( PTRTYPE mcparticle, PTRTYPE daughter ) ;
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] ) ;
45 
46 // now the fortran wrappers from cfortran.h
47 extern "C"{
48 FCALLSCFUN0(CFORTRANPNTR, lcmcpcreate,LCMCPCREATE, lcmcpcreate )
49 FCALLSCFUN1(INT, lcmcpdelete, LCMCPDELETE, lcmcpdelete, CFORTRANPNTR )
50 
51 FCALLSCFUN1(INT, lcmcpgetnumberofparents, LCMCPGETNUMBEROFPARENTS, lcmcpgetnumberofparents, CFORTRANPNTR )
52 FCALLSCFUN2(CFORTRANPNTR, lcmcpgetparent, LCMCPGETPARENT, lcmcpgetparent, CFORTRANPNTR , INT)
53 // FCALLSCFUN1(CFORTRANPNTR, lcmcpgetsecondparent, LCMCPGETSECONDPARENT, lcmcpgetsecondparent, CFORTRANPNTR )
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)
68 
69 
70 FCALLSCFUN2(INT, lcmcpaddparent,LCMCPADDPARENT,lcmcpaddparent, CFORTRANPNTR, CFORTRANPNTR )
71 // FCALLSCFUN2(INT, lcmcpsetsecondparent,LCMCPSETSECONDPARENT,lcmcpsetsecondparent, CFORTRANPNTR, CFORTRANPNTR )
72 // FCALLSCFUN2(INT, lcmcpadddaughter,LCMCPADDDAUGHTER,lcmcpadddaughter, 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)
83 }
84 
Generated on Fri Dec 2 2016 11:44:39 for LCIO by   doxygen 1.8.6