LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lctph.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 lctphcreate() ;
13 int lctphdelete( PTRTYPE hit ) ;
14 
15 int lctphid( PTRTYPE hit ) ;
16 int lctphgetcellid( PTRTYPE hit ) ;
17 float lctphgettime( PTRTYPE hit ) ;
18 float lctphgcharge( PTRTYPE hit ) ;
19 int lctphgetquality( PTRTYPE hit ) ;
20 
21 int lctphgetnrawdatawords( PTRTYPE hit ) ;
22 int lctphgetrawdataword( PTRTYPE hit, int i) ;
23 
24 int lctphsetcellid( PTRTYPE hit, int id ) ;
25 int lctphsettime( PTRTYPE hit, float t );
26 int lctphsetcharge( PTRTYPE hit, float c );
27 int lctphsetquality( PTRTYPE hit, int q );
28 int lctphsetrawdata( PTRTYPE hit, int* rawData, int size ) ;
29 //int lctphinitrawdataarray( PTRTYPE hit, int size ) ;
30 
31 // now the fortran wrappers from cfortran.h
32 extern "C"{
33 
34 FCALLSCFUN0(CFORTRANPNTR, lctphcreate, LCTPHCREATE, lctphcreate )
35 FCALLSCFUN1(INT, lctphdelete, LCTPHDELETE, lctphdelete, CFORTRANPNTR )
36 
37 FCALLSCFUN1(INT, lctphid, LCTPHID, lctphdid, CFORTRANPNTR )
38 FCALLSCFUN1(INT, lctphgetcellid,LCTPHGETCELLID,lctphgetcellid,CFORTRANPNTR)
39 FCALLSCFUN1(FLOAT, lctphgettime,LCTPHGETTIME,lctphgettime,CFORTRANPNTR)
40 FCALLSCFUN1(FLOAT, lctphgcharge,LCTPHGCHARGE,lctphgcharge,CFORTRANPNTR)
41 FCALLSCFUN1(INT, lctphgetquality,LCTPHGETQUALITY,lctphgetquality,CFORTRANPNTR)
42 
43 FCALLSCFUN1(INT, lctphgetnrawdatawords,LCTPHGETNRAWDATAWORDS,lctphgetnrawdatawords,CFORTRANPNTR)
44 FCALLSCFUN2(INT, lctphgetrawdataword,LCTPHGETRAWDATAWORD,lctphgetrawdataword,CFORTRANPNTR,INT)
45 
46 FCALLSCFUN2(INT, lctphsetcellid, LCTPHSETCELLID, lctphsetcellid, CFORTRANPNTR, INT )
47 FCALLSCFUN2(INT, lctphsettime, LCTPHSETTIME, lctphsettime, CFORTRANPNTR, FLOAT )
48 FCALLSCFUN2(INT, lctphsetcharge, LCTPHSETCHARGE, lctphsetcharge, CFORTRANPNTR, FLOAT )
49 FCALLSCFUN2(INT, lctphsetquality, LCTPHSETQUALITY, lctphsetquality, CFORTRANPNTR, INT )
50 FCALLSCFUN3(INT, lctphsetrawdata, LCTPHSETRAWDATA, lctphsetrawdata, CFORTRANPNTR, INTV, INT )
51  //FCALLSCFUN2(INT, lctphinitrawdataarray, LCTPHINITRAWDATAARRAY, lctphinitrawdataarray, CFORTRANPNTR, INT )
52 
53 }
54