LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lctrh.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 lctrhcreate() ;
13 int lctrhdelete( PTRTYPE trh ) ;
14 
15 int lctrhid( PTRTYPE trh ) ;
16 int lctrhgetposition( PTRTYPE trh, double* pos ) ;
17 int lctrhgetcovmatrix( PTRTYPE trh, float* cvmtx ) ;
18 float lctrhgetdedx( PTRTYPE trh ) ;
19 float lctrhgetedep( PTRTYPE trh ) ;
20 float lctrhgetedeperr( PTRTYPE trh ) ;
21 float lctrhgettime( PTRTYPE trh ) ;
22 //char* lctrhgettype( PTRTYPE trh ) ;
23 int lctrhgettype( PTRTYPE trh ) ;
24 int lctrhgetquality( PTRTYPE trh ) ;
25 int lctrhgetcellid0( PTRTYPE trh ) ;
26 int lctrhgetcellid1( PTRTYPE trh ) ;
27 
28 PTRTYPE lctrhgetrawhits( PTRTYPE trh ) ;
29 
30 int lctrhsetposition( PTRTYPE trh, double* pos ) ;
31 int lctrhsetcovmatrix( PTRTYPE trh, float* cvmtx ) ;
32 int lctrhsetdedx( PTRTYPE trh, float dedx ) ;
33 int lctrhsetedep( PTRTYPE trh, float e ) ;
34 int lctrhsetedeperr( PTRTYPE trh, float e ) ;
35 int lctrhsettime( PTRTYPE trh, float time ) ;
36 int lctrhsettype( PTRTYPE trh, int type ) ;
37 int lctrhsetquality( PTRTYPE trh, int q );
38 int lctrhsetcellid0( PTRTYPE trh, int id0) ;
39 int lctrhsetcellid1( PTRTYPE trh, int id1) ;
40 int lctrhaddrawhit( PTRTYPE trh, PTRTYPE rawhit ) ;
41 
42 
43 // now the fortran wrappers from cfortran.h
44 extern "C"{
45 
46 FCALLSCFUN0(CFORTRANPNTR, lctrhcreate, LCTRHCREATE, lctrhcreate )
47 FCALLSCFUN1(INT, lctrhdelete, LCTRHDELETE, lctrhdelete, CFORTRANPNTR )
48 
49 FCALLSCFUN1(INT, lctrhid, LCTRHID, lctrhid, CFORTRANPNTR)
50 FCALLSCFUN2(INT, lctrhgetposition, LCTRHGETPOSITION, lctrhgetposition, CFORTRANPNTR, DOUBLEV )
51 FCALLSCFUN2(INT, lctrhgetcovmatrix, LCTRHGETCOVMATRIX, lctrhgetcovmatrix, CFORTRANPNTR, FLOATV)
52 FCALLSCFUN1(FLOAT, lctrhgetdedx, LCTRHGETDEDX, lctrhgetdedx, CFORTRANPNTR)
53 FCALLSCFUN1(FLOAT, lctrhgetedep, LCTRHGETEDEP, lctrhgetedep, CFORTRANPNTR)
54 FCALLSCFUN1(FLOAT, lctrhgetedeperr, LCTRHGETEDEPERR, lctrhgetedeperr, CFORTRANPNTR)
55 FCALLSCFUN1(FLOAT, lctrhgettime, LCTRHGETTIME, lctrhgettime, CFORTRANPNTR)
56  //FCALLSCFUN1(STRING, lctrhgettype, LCTRHGETTYPE, lctrhgettype, CFORTRANPNTR )
57 FCALLSCFUN1(INT, lctrhgettype, LCTRHGETTYPE, lctrhgettype, CFORTRANPNTR )
58 FCALLSCFUN1(INT, lctrhgetquality,LCTRHGETQUALITY, lctrhgetquality,CFORTRANPNTR)
59 FCALLSCFUN1(INT, lctrhgetcellid0, LCTRHGETCELLID0, lctrhgetcellid0, CFORTRANPNTR )
60 FCALLSCFUN1(INT, lctrhgetcellid1, LCTRHGETCELLID1, lctrhgetcellid1, CFORTRANPNTR )
61 FCALLSCFUN1(CFORTRANPNTR, lctrhgetrawhits, LCTRHGETRAWHITS, lctrhgetrawhits, CFORTRANPNTR)
62 
63 FCALLSCFUN2(INT, lctrhsetposition, LCTRHSETPOSITION, lctrhsetposition, CFORTRANPNTR, DOUBLEV)
64 FCALLSCFUN2(INT, lctrhsetcovmatrix, LCTRHSETCOVMATRIX, lctrhsetcovmatrix, CFORTRANPNTR, FLOATV)
65 FCALLSCFUN2(INT, lctrhsetdedx, LCTRHSETDEDX, lctrhsetdedx, CFORTRANPNTR, FLOAT)
66 FCALLSCFUN2(INT, lctrhsetedep, LCTRHSETEDEP, lctrhsetedep, CFORTRANPNTR, FLOAT)
67 FCALLSCFUN2(INT, lctrhsetedeperr, LCTRHSETEDEPERR, lctrhsetedeperr, CFORTRANPNTR, FLOAT)
68 FCALLSCFUN2(INT, lctrhsettime, LCTRHSETTIME, lctrhsettime, CFORTRANPNTR, FLOAT)
69 FCALLSCFUN2(INT, lctrhsettype, LCTRHSETTYPE, lctrhsettype, CFORTRANPNTR, INT )
70 FCALLSCFUN2(INT, lctrhsetquality, LCTRHSETQUALITY, lctrhsetquality, CFORTRANPNTR, INT )
71 FCALLSCFUN2(INT, lctrhsetcellid0,LCTRHSETCELLID0,lctrhsetcellid0, CFORTRANPNTR, INT )
72 FCALLSCFUN2(INT, lctrhsetcellid1,LCTRHSETCELLID1,lctrhsetcellid1, CFORTRANPNTR, INT )
73 
74 FCALLSCFUN2(INT, lctrhaddrawhit, LCTRHADDRAWHIT, lctrhaddrawhit, CFORTRANPNTR, CFORTRANPNTR)
75 
76 }
77 
78