LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lccah.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 lccahcreate() ;
14 int lccahdelete( PTRTYPE calhit ) ;
15 int lccahid( PTRTYPE calhit ) ;
16 
17 int lccahgetcellid0( PTRTYPE calhit ) ;
18 int lccahgetcellid1( PTRTYPE calhit ) ;
19 float lccahgetenergy( PTRTYPE calhit ) ;
20 float lccahgetenergyerr( PTRTYPE calhit ) ;
21 float lccahgettime( PTRTYPE calhit ) ;
22 int lccahgetposition( PTRTYPE calhit, float * ) ;
23 int lccahgettype( PTRTYPE calhit ) ;
24 PTRTYPE lccahgetrawhit( PTRTYPE calhit ) ;
25 
26 int lccahsetcellid0( PTRTYPE calhit, int id0) ;
27 int lccahsetcellid1( PTRTYPE calhit, int id1) ;
28 int lccahsetenergy( PTRTYPE calhit, float en) ;
29 int lccahsetenergyerr( PTRTYPE calhit, float enerr) ;
30 int lccahsettime( PTRTYPE calhit, float time) ;
31 int lccahsetposition( PTRTYPE calhit, float pos[3]) ;
32 int lccahsettype( PTRTYPE calhit, int type ) ;
33 int lccahsetrawhit( PTRTYPE calhit, PTRTYPE rawHit ) ;
34 
35 // now the fortran wrappers from cfortran.h
36 extern "C"{
37 FCALLSCFUN0(CFORTRANPNTR, lccahcreate,LCCAHCREATE, lccahcreate )
38 FCALLSCFUN1(INT, lccahdelete, LCCAHDELETE, lccahdelete, CFORTRANPNTR )
39 FCALLSCFUN1(INT, lccahid, LCCAHID, lccahid, CFORTRANPNTR )
40 
41 FCALLSCFUN1(INT, lccahgetcellid0, LCCAHGETCELLID0, lccahgetcellid0, CFORTRANPNTR )
42 FCALLSCFUN1(INT, lccahgetcellid1, LCCAHGETCELLID1, lccahgetcellid1, CFORTRANPNTR )
43 FCALLSCFUN1(FLOAT, lccahgetenergy, LCCAHGETENERGY, lccahgetenergy, CFORTRANPNTR )
44 FCALLSCFUN1(FLOAT, lccahgetenergyerr, LCCAHGETENERGYERR, lccahgetenergyerr, CFORTRANPNTR )
45 FCALLSCFUN1(FLOAT, lccahgettime, LCCAHGETTIME, lccahgettime, CFORTRANPNTR )
46 FCALLSCFUN2(INT, lccahgetposition,LCCAHGETPOSITION,lccahgetposition, CFORTRANPNTR, FLOATV )
47 FCALLSCFUN1(INT, lccahgettype, LCCAHGETTYPE, lccahgettype, CFORTRANPNTR )
48 
49 FCALLSCFUN1(CFORTRANPNTR, lccahgetrawhit, LCCAHGETRAWHIT, lccahgetrawhit, CFORTRANPNTR )
50 
51 FCALLSCFUN2(INT, lccahsetcellid0,LCCAHSETCELLID0,lccahsetcellid0, CFORTRANPNTR, INT )
52 FCALLSCFUN2(INT, lccahsetcellid1,LCCAHSETCELLID1,lccahsetcellid1, CFORTRANPNTR, INT )
53 FCALLSCFUN2(INT, lccahsetenergy,LCCAHSETENERGY,lccahsetenergy, CFORTRANPNTR, FLOAT )
54 FCALLSCFUN2(INT, lccahsetenergyerr,LCCAHSETENERGYERR,lccahsetenergyerr, CFORTRANPNTR, FLOAT )
55 FCALLSCFUN2(INT, lccahsettime,LCCAHSETTIME,lccahsettime, CFORTRANPNTR, FLOAT )
56 FCALLSCFUN2(INT, lccahsetposition,LCCAHSETPOSITION,lccahsetposition, CFORTRANPNTR, FLOATV )
57 FCALLSCFUN2(INT, lccahsettype, LCCAHSETTYPE, lccahsettype, CFORTRANPNTR, INT )
58 FCALLSCFUN2(INT, lccahsetrawhit, LCCAHSETRAWHIT, lccahsetrawhit, CFORTRANPNTR, INT )
59 }
60