LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcsch.h
1 
7 #include "cfortran.h"
8 #include "cpointer.h"
9 
10 // Warning: dont use "_" in function names as this causes two many
11 // trailing underscores on Linux
12 
13 PTRTYPE lcschcreate() ;
14 int lcschdelete( PTRTYPE simcalhit ) ;
15 
16 int lcschid( PTRTYPE simcalhit ) ;
17 int lcschgetcellid0( PTRTYPE simcalhit ) ;
18 int lcschgetcellid1( PTRTYPE simcalhit ) ;
19 float lcschgetenergy( PTRTYPE simcalhit ) ;
20 int lcschgetposition( PTRTYPE simcalhit, float * ) ;
21 int lcschgetnmcparticles( PTRTYPE simcalhit ) ;
22 int lcschgetnmccontributions( PTRTYPE simcalhit ) ;
23 
24 PTRTYPE lcschgetparticlecont( PTRTYPE simcalhit, int i) ;
25 float lcschgetenergycont( PTRTYPE simcalhit, int i) ;
26 float lcschgettimecont( PTRTYPE simcalhit, int i) ;
27 int lcschgetpdgcont( PTRTYPE simcalhit, int i) ;
28 
29 int lcschsetcellid0( PTRTYPE simcalhit, int id0) ;
30 int lcschsetcellid1( PTRTYPE simcalhit, int id1) ;
31 int lcschsetenergy( PTRTYPE simcalhit, float en) ;
32 int lcschsetposition( PTRTYPE simcalhit, float pos[3]) ;
33 int lcschaddmcparticlecontribution( PTRTYPE simcalhit, PTRTYPE mcparticle, float en,float t, int pdg ) ;
34 
35 // now the fortran wrappers from cfortran.h
36 extern "C"{
37 FCALLSCFUN0(CFORTRANPNTR, lcschcreate,LCSCHCREATE, lcschcreate )
38 FCALLSCFUN1(INT, lcschdelete, LCSCHDELETE, lcschdelete, CFORTRANPNTR )
39 
40 FCALLSCFUN1(INT, lcschid, LCSCHID, lcschid, CFORTRANPNTR )
41 FCALLSCFUN1(INT, lcschgetcellid0, LCSCHGETCELLID0, lcschgetcellid0, CFORTRANPNTR )
42 FCALLSCFUN1(INT, lcschgetcellid1, LCSCHGETCELLID1, lcschgetcellid1, CFORTRANPNTR )
43 FCALLSCFUN1(FLOAT, lcschgetenergy, LCSCHGETENERGY, lcschgetenergy, CFORTRANPNTR )
44 FCALLSCFUN2(INT, lcschgetposition,LCSCHGETPOSITION,lcschgetposition, CFORTRANPNTR, FLOATV )
45 FCALLSCFUN1(INT, lcschgetnmcparticles,LCSCHGETNMCPARTICLES,lcschgetnmcparticles, CFORTRANPNTR )
46 FCALLSCFUN1(INT, lcschgetnmccontributions,LCSCHGETNMCCONTRIBUTIONS,lcschgetnmccontributions, CFORTRANPNTR )
47 
48 FCALLSCFUN2(CFORTRANPNTR, lcschgetparticlecont,LCSCHGETPARTICLECONT,lcschgetparticlecont,CFORTRANPNTR,INT )
49 FCALLSCFUN2(FLOAT, lcschgetenergycont,LCSCHGETENERGYCONT,lcschgetenergycont,CFORTRANPNTR, INT )
50 FCALLSCFUN2(FLOAT, lcschgettimecont,LCSCHGETTIMECONT,lcschgettimecont,CFORTRANPNTR,INT )
51 
52 FCALLSCFUN2(INT, lcschsetcellid0,LCSCHSETCELLID0,lcschsetcellid0, CFORTRANPNTR, INT )
53 FCALLSCFUN2(INT, lcschsetcellid1,LCSCHSETCELLID1,lcschsetcellid1, CFORTRANPNTR, INT )
54 FCALLSCFUN2(INT, lcschsetenergy,LCSCHSETENERGY,lcschsetenergy, CFORTRANPNTR, FLOAT )
55 FCALLSCFUN2(INT, lcschsetposition,LCSCHSETPOSITION,lcschsetposition, CFORTRANPNTR, FLOATV )
56 FCALLSCFUN5(INT, lcschaddmcparticlecontribution,LCSCHADDMCPARTICLECONTRIBUTION,lcschaddmcparticlecontribution, CFORTRANPNTR, CFORTRANPNTR, FLOAT, FLOAT, INT )
57 
58 }
59