LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcrcp.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 lcrcpcreate() ;
13 int lcrcpdelete( PTRTYPE rcp ) ;
14 
15 int lcrcpid( PTRTYPE rcp ) ;
16 int lcrcpgettype( PTRTYPE rcp ) ;
17 bool lcrcpiscompound( PTRTYPE rcp ) ;
18 int lcrcpgetmomentum( PTRTYPE rcp, float* p ) ;
19 float lcrcpgetenergy( PTRTYPE rcp ) ;
20 int lcrcpgetcovmatrix( PTRTYPE rcp, float* cvmtx ) ;
21 float lcrcpgetmass( PTRTYPE rcp ) ;
22 float lcrcpgetcharge( PTRTYPE rcp ) ;
23 int lcrcpgetreferencepoint( PTRTYPE rcp, float* refpoint ) ;
24 PTRTYPE lcrcpgetparticleids( PTRTYPE rcp ) ;
25 float lcrcpgetgoodnessofpid( PTRTYPE pid ) ;
26 PTRTYPE lcrcpgetparticles( PTRTYPE rcp ) ;
27 // int lcrcpgetparticleweights( PTRTYPE rcp, float* weights, int* nweights ) ;
28 PTRTYPE lcrcpgetclusters( PTRTYPE rcp ) ;
29 // int lcrcpgetclusterweights( PTRTYPE rcp, float* weights, int* nweights ) ;
30 PTRTYPE lcrcpgettracks( PTRTYPE rcp ) ;
31 // int lcrcpgettrackweights( PTRTYPE rcp, float* weights, int* nweights ) ;
32 // PTRTYPE lcrcpgetmcparticles( PTRTYPE rcp ) ;
33 // int lcrcpgetmcparticleweights( PTRTYPE rcp, float* weights, int* nweights ) ;
34 PTRTYPE lcrcpgetstartvertex( PTRTYPE rcp ) ;
35 PTRTYPE lcrcpgetendvertex( PTRTYPE rcp ) ;
36 
37 
38 int lcrcpsettype( PTRTYPE rcp, int type ) ;
39 int lcrcpsetcompound( PTRTYPE rcp, bool lcompound ) ;
40 int lcrcpsetmomentum( PTRTYPE rcp, float* p ) ;
41 int lcrcpsetenergy( PTRTYPE rcp, float energy ) ;
42 int lcrcpsetcovmatrix( PTRTYPE rcp, float* cvmtx ) ;
43 int lcrcpsetmass( PTRTYPE rcp, float xmass) ;
44 int lcrcpsetcharge( PTRTYPE rcp, float charge ) ;
45 int lcrcpsetreferencepoint( PTRTYPE rcp, float* refpoint ) ;
46 int lcrcpaddparticleid( PTRTYPE rcp, PTRTYPE id ) ;
47 int lcrcpsetgoodnessofpid( PTRTYPE pid, float good ) ;
48 int lcrcpaddparticle( PTRTYPE rcp, PTRTYPE particle ) ;
49 int lcrcpaddcluster( PTRTYPE rcp, PTRTYPE clus ) ;
50 int lcrcpaddtrack( PTRTYPE rcp, PTRTYPE track) ;
51 // int lcrcpaddmcparticle( PTRTYPE rcp, PTRTYPE mcp, float weigth ) ;
52 int lcrcpsetstartvertex( PTRTYPE rcp, PTRTYPE vtx ) ;
53 
54 
55 // now the fortran wrappers from cfortran.h
56 extern "C"{
57 
58 FCALLSCFUN0(CFORTRANPNTR, lcrcpcreate, LCRCPCREATE, lcrcpcreate )
59 FCALLSCFUN1(INT, lcrcpdelete, LCRCPDELETE, lcrcpdelete, CFORTRANPNTR )
60 
61 FCALLSCFUN1(INT, lcrcpid, LCRCPID, lcrcpid, CFORTRANPNTR)
62 FCALLSCFUN1(INT, lcrcpgettype, LCRCPGETTYPE, lcrcpgettype, CFORTRANPNTR)
63 FCALLSCFUN1(LOGICAL, lcrcpiscompound, LCRCPISCOMPOUND, lcrcpiscompound, CFORTRANPNTR)
64 FCALLSCFUN2(INT, lcrcpgetmomentum, LCRCPGETMOMENTUM, lcrcpgetmomentum, CFORTRANPNTR, FLOATV)
65 FCALLSCFUN1(FLOAT, lcrcpgetenergy, LCRCPGETENERGY, lcrcpgetenergy, CFORTRANPNTR)
66 FCALLSCFUN2(INT, lcrcpgetcovmatrix, LCRCPGETCOVMATRIX, lcrcpgetcovmatrix, CFORTRANPNTR, FLOATV)
67 FCALLSCFUN1(FLOAT, lcrcpgetmass, LCRCPGETMASS, lcrcpgetmass, CFORTRANPNTR)
68 FCALLSCFUN1(FLOAT, lcrcpgetcharge, LCRCPGETCHARGE, lcrcpgetcharge, CFORTRANPNTR)
69 FCALLSCFUN2(INT, lcrcpgetreferencepoint, LCRCPGETREFERENCEPOINT, lcrcpgetreferencepoint, CFORTRANPNTR, FLOATV)
70 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetparticleids, LCRCPGETPARTICLEIDS, lcrcpgetparticleids, CFORTRANPNTR)
71 FCALLSCFUN1(FLOAT, lcrcpgetgoodnessofpid, LCRCPGETGOODNESSOFPID, lcrcpgetgoodnessofpid, CFORTRANPNTR)
72 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetparticles, LCRCPGETPARTICLES, lcrcpgetparticles, CFORTRANPNTR)
73 // FCALLSCFUN3(INT, lcrcpgetparticleweights, LCRCPGETPARTICLEWEIGHTS, lcrcpgetparticleweights, CFORTRANPNTR, FLOATV, INTV)
74 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetclusters, LCRCPGETCLUSTERS, lcrcpgetclusters, CFORTRANPNTR)
75 // FCALLSCFUN3(INT, lcrcpgetclusterweights, LCRCPGETCLUSTERWEIGHTS, lcrcpgetclusterweights, CFORTRANPNTR, FLOATV, INTV)
76 FCALLSCFUN1(CFORTRANPNTR, lcrcpgettracks, LCRCPGETTRACKS, lcrcpgettracks, CFORTRANPNTR)
77 // FCALLSCFUN3(INT, lcrcpgettrackweights, LCRCPGETTRACKWEIGHTS, lcrcpgettrackweights, CFORTRANPNTR, FLOATV, INTV)
78 // FCALLSCFUN1(CFORTRANPNTR, lcrcpgetmcparticles, LCRCPGETMCPARTICLES, lcrcpgetmcparticles, CFORTRANPNTR)
79 // FCALLSCFUN3(INT, lcrcpgetmcparticleweights, LCRCPGETMCPARTICLEWEIGHTS, lcrcpgetmcparticleweights,
80 // CFORTRANPNTR, FLOATV, INTV)
81 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetstartvertex, LCRCPGETSTARTVERTEX, lcrcpgetstartvertex, CFORTRANPNTR)
82 FCALLSCFUN1(CFORTRANPNTR, lcrcpgetendvertex, LCRCPGETENDVERTEX, lcrcpgetendvertex, CFORTRANPNTR)
83 
84 
85 FCALLSCFUN2(INT, lcrcpsettype, LCRCPSETTYPE, lcrcpsettype, CFORTRANPNTR, INT)
86 // FCALLSCFUN2(INT, lcrcpsetcompound, LCRCPSETCOMPOUND, lcrcpsetcompound, CFORTRANPNTR, LOGICAL)
87 FCALLSCFUN2(INT, lcrcpsetmomentum, LCRCPSETMOMENTUM, lcrcpsetmomentum, CFORTRANPNTR, FLOATV)
88 FCALLSCFUN2(INT, lcrcpsetenergy, LCRCPSETENERGY, lcrcpsetenergy, CFORTRANPNTR, FLOAT)
89 FCALLSCFUN2(INT, lcrcpsetcovmatrix, LCRCPSETCOVMATRIX, lcrcpsetcovmatrix, CFORTRANPNTR, FLOATV)
90 FCALLSCFUN2(INT, lcrcpsetmass, LCRCPSETMASS, lcrcpsetmass, CFORTRANPNTR, FLOAT)
91 FCALLSCFUN2(INT, lcrcpsetcharge, LCRCPSETCHARGE, lcrcpsetcharge, CFORTRANPNTR, FLOAT)
92 FCALLSCFUN2(INT, lcrcpsetreferencepoint, LCRCPSETREFERENCEPOINT, lcrcpsetreferencepoint, CFORTRANPNTR, FLOATV)
93 FCALLSCFUN2(INT, lcrcpaddparticleid, LCRCPADDPARTICLEID, lcrcpaddparticleid, CFORTRANPNTR, CFORTRANPNTR)
94 FCALLSCFUN2(INT, lcrcpsetgoodnessofpid, LCRCPSETGOODNESSOFPID, lcrcpsetgoodnessofpid, CFORTRANPNTR, FLOAT)
95 
96 FCALLSCFUN2(INT, lcrcpaddparticle, LCRCPADDPARTICLE, lcrcpaddparticle, CFORTRANPNTR, CFORTRANPNTR )
97 FCALLSCFUN2(INT, lcrcpaddcluster, LCRCPADDCLUSTER, lcrcpaddcluster, CFORTRANPNTR, CFORTRANPNTR)
98 FCALLSCFUN2(INT, lcrcpaddtrack, LCRCPADDTRACK, lcrcpaddtrack, CFORTRANPNTR, CFORTRANPNTR)
99 // FCALLSCFUN3(INT, lcrcpaddmcparticle, LCRCPADDMCPARTICLE, lcrcpaddmcparticle, CFORTRANPNTR, CFORTRANPNTR, FLOAT)
100 FCALLSCFUN2(INT, lcrcpsetstartvertex, LCRCPSETSTARTVERTEX, lcrcpsetstartvertex, CFORTRANPNTR, CFORTRANPNTR )
101 }
102 
103