LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcrhd.h
1 
7 #include "cfortran.h"
8 #include "cpointer.h"
9 
10 
11 // Warning: dont use "_" in function names as this causes two many
12 // trailing underscores on Linux
13 
14 PTRTYPE lcrhdcreate() ;
15 int lcrhddelete( PTRTYPE runHeader ) ;
16 int lcrhdgetrunnumber( PTRTYPE runHeader ) ;
17 
18 char* lcrhdgetdetectorname( PTRTYPE runHeader ) ;
19 char* lcrhdgetdescription( PTRTYPE runHeader ) ;
20 
21 PTRTYPE lcrhdgetactivesubdetectors(PTRTYPE runHeader) ;
22 
23 int lcrhdsetrunnumber( PTRTYPE runHeader, int rn) ;
24 int lcrhdsetdetectorname( PTRTYPE runHeader, const char* dn) ;
25 int lcrhdsetdescription( PTRTYPE runHeader, const char* dsc) ;
26 int lcrhdaddactivesubdetector( PTRTYPE runHeader, const char* adn) ;
27 
28 
29 // now the fortran wrappers from cfortran.h
30 extern "C"{
31 FCALLSCFUN0(CFORTRANPNTR, lcrhdcreate,LCRHDCREATE, lcrhdcreate )
32 FCALLSCFUN1(INT, lcrhddelete, LCRHDDELETE, lcrhddelete, CFORTRANPNTR )
33 
34 FCALLSCFUN1(INT, lcrhdgetrunnumber, LCRHDGETRUNNUMBER, lcrhdgetrunnumber, CFORTRANPNTR )
35 FCALLSCFUN1(STRING, lcrhdgetdetectorname, LCRHDGETDETECTORNAME, lcrhdgetdetectorname, CFORTRANPNTR )
36 FCALLSCFUN1(STRING, lcrhdgetdescription, LCRHDGETDESCRIPTION, lcrhdgetdescription, CFORTRANPNTR )
37 
38 FCALLSCFUN1(CFORTRANPNTR, lcrhdgetactivesubdetectors, LCRHDGETACTIVESUBDETECTORS,
39  lcrhdgetactivesubdetectors, CFORTRANPNTR )
40 
41 FCALLSCFUN2(INT, lcrhdsetrunnumber, LCRHDSETRUNNUMBER, lcrhdsetrunnumber, CFORTRANPNTR, INT )
42 FCALLSCFUN2(INT, lcrhdsetdetectorname, LCRHDSETDETECTORNAME,lcrhdsetdetectorname, CFORTRANPNTR, STRING )
43 FCALLSCFUN2(INT, lcrhdsetdescription, LCRHDSETDESCRIPTION,lcrhdsetdescription, CFORTRANPNTR, STRING )
44 FCALLSCFUN2(INT, lcrhdaddactivesubdetector, LCRHDADDACTIVESUBDETECTOR,lcrhdaddactivesubdetector, CFORTRANPNTR, STRING )
45 }
46