LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcsth.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 lcsthcreate() ;
13 int lcsthdelete( PTRTYPE hit ) ;
14 
15 int lcsthgetcellid( PTRTYPE hit ) ;
16 int lcsthgetcellid0( PTRTYPE hit ) ;
17 int lcsthgetcellid1( PTRTYPE hit ) ;
18 double lcsthgetposition( PTRTYPE hit, int index ) ;
19 float lcsthgetmomentum( PTRTYPE hit, int index ) ;
20 float lcsthgetpathlength ( PTRTYPE hit ) ;
21 float lcsthgetdedx( PTRTYPE hit ) ;
22 float lcsthgetedep( PTRTYPE hit ) ;
23 float lcsthgettime( PTRTYPE hit ) ;
24 
25 PTRTYPE lcsthgetmcparticle( PTRTYPE hit ) ;
26 
27 int lcsthsetcellid( PTRTYPE hit, int id ) ;
28 int lcsthsetcellid0( PTRTYPE hit, int id ) ;
29 int lcsthsetcellid1( PTRTYPE hit, int id ) ;
30 int lcsthsetposition( PTRTYPE hit, double pos[3] ) ;
31 int lcsthsetmomentum( PTRTYPE hit, float pos[3] ) ;
32 int lcsthsetmomentumxyz( PTRTYPE hit, float px, float py, float pz ) ;
33 int lcsthsetpathlength( PTRTYPE hit, float pathLength ) ;
34 int lcsthsetdedx( PTRTYPE hit, float dEdX ) ;
35 int lcsthsetedep( PTRTYPE hit, float e ) ;
36 int lcsthsettime( PTRTYPE hit, float t ) ;
37 int lcsthsetmcparticle( PTRTYPE hit, PTRTYPE particle ) ;
38 
39 // now the fortran wrappers from cfortran.h
40 extern "C"{
41 
42 FCALLSCFUN0(CFORTRANPNTR, lcsthcreate, LCSTHCREATE, lcsthcreate )
43 FCALLSCFUN1(INT, lcsthdelete, LCSTHDELETE, lcsthdelete, CFORTRANPNTR )
44 
45 FCALLSCFUN1(INT, lcsthgetcellid,LCSTHGETCELLID,lcsthgetcellid,CFORTRANPNTR)
46 FCALLSCFUN1(INT, lcsthgetcellid0,LCSTHGETCELLID0,lcsthgetcellid0,CFORTRANPNTR)
47 FCALLSCFUN1(INT, lcsthgetcellid1,LCSTHGETCELLID1,lcsthgetcellid1,CFORTRANPNTR)
48 FCALLSCFUN2(DOUBLE, lcsthgetposition, LCSTHGETPOSITION, lcsthgetposition, CFORTRANPNTR, INT )
49 FCALLSCFUN2(FLOAT, lcsthgetmomentum, LCSTHGETMOMENTUM, lcsthgetmomentum, CFORTRANPNTR, INT )
50 FCALLSCFUN1(FLOAT, lcsthgetpathlength,LCSTHGETPATHLENGTH,lcsthgetpathlength,CFORTRANPNTR)
51 FCALLSCFUN1(FLOAT, lcsthgetdedx,LCSTHGETDEDX,lcsthgetdedx,CFORTRANPNTR)
52 FCALLSCFUN1(FLOAT, lcsthgetedep,LCSTHGETEDEP,lcsthgetedep,CFORTRANPNTR)
53 FCALLSCFUN1(FLOAT, lcsthgettime,LCSTHGETTIME,lcsthgettime,CFORTRANPNTR)
54 
55 FCALLSCFUN1(CFORTRANPNTR,lcsthgetmcparticle,LCSTHGETMCPARTICLE,lcsthgetmcparticle,CFORTRANPNTR)
56 
57 FCALLSCFUN2(INT, lcsthsetcellid, LCSTHSETCELLID, lcsthsetcellid, CFORTRANPNTR, INT )
58 FCALLSCFUN2(INT, lcsthsetcellid0, LCSTHSETCELLID0, lcsthsetcellid0, CFORTRANPNTR, INT )
59 FCALLSCFUN2(INT, lcsthsetcellid1, LCSTHSETCELLID1, lcsthsetcellid1, CFORTRANPNTR, INT )
60 FCALLSCFUN2(INT, lcsthsetposition, LCSTHSETPOSITION, lcsthsetposition, CFORTRANPNTR, DOUBLEV )
61 FCALLSCFUN2(INT, lcsthsetmomentum, LCSTHSETMOMENTUM, lcsthsetmomentum, CFORTRANPNTR, FLOATV )
62 FCALLSCFUN4(INT, lcsthsetmomentumxyz, LCSTHSETMOMENTUMXYZ, lcsthsetmomentumxyz, CFORTRANPNTR,
63  FLOAT, FLOAT, FLOAT )
64 FCALLSCFUN2(INT, lcsthsetpathlength, LCSTHSETPATHLENGTH, lcsthsetpathlength, CFORTRANPNTR, FLOAT )
65 FCALLSCFUN2(INT, lcsthsetdedx, LCSTHSETDEDX, lcsthsetdedx, CFORTRANPNTR, FLOAT )
66 FCALLSCFUN2(INT, lcsthsetedep, LCSTHSETEDEP, lcsthsetedep, CFORTRANPNTR, FLOAT )
67 FCALLSCFUN2(INT, lcsthsettime, LCSTHSETTIME, lcsthsettime, CFORTRANPNTR, FLOAT )
68 FCALLSCFUN2(INT, lcsthsetmcparticle, LCSTHSETMCPARTICLE, lcsthsetmcparticle, CFORTRANPNTR, CFORTRANPNTR )
69 }
70