00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013
00014 PTRTYPE lcrhdcreate() ;
00015 int lcrhddelete( PTRTYPE runHeader ) ;
00016 int lcrhdgetrunnumber( PTRTYPE runHeader ) ;
00017
00018 char* lcrhdgetdetectorname( PTRTYPE runHeader ) ;
00019 char* lcrhdgetdescription( PTRTYPE runHeader ) ;
00020
00021 PTRTYPE lcrhdgetactivesubdetectors(PTRTYPE runHeader) ;
00022
00023 int lcrhdsetrunnumber( PTRTYPE runHeader, int rn) ;
00024 int lcrhdsetdetectorname( PTRTYPE runHeader, const char* dn) ;
00025 int lcrhdsetdescription( PTRTYPE runHeader, const char* dsc) ;
00026 int lcrhdaddactivesubdetector( PTRTYPE runHeader, const char* adn) ;
00027
00028
00029
00030 extern "C"{
00031 FCALLSCFUN0(CFORTRANPNTR, lcrhdcreate,LCRHDCREATE, lcrhdcreate )
00032 FCALLSCFUN1(INT, lcrhddelete, LCRHDDELETE, lcrhddelete, CFORTRANPNTR )
00033
00034 FCALLSCFUN1(INT, lcrhdgetrunnumber, LCRHDGETRUNNUMBER, lcrhdgetrunnumber, CFORTRANPNTR )
00035 FCALLSCFUN1(STRING, lcrhdgetdetectorname, LCRHDGETDETECTORNAME, lcrhdgetdetectorname, CFORTRANPNTR )
00036 FCALLSCFUN1(STRING, lcrhdgetdescription, LCRHDGETDESCRIPTION, lcrhdgetdescription, CFORTRANPNTR )
00037
00038 FCALLSCFUN1(CFORTRANPNTR, lcrhdgetactivesubdetectors, LCRHDGETACTIVESUBDETECTORS,
00039 lcrhdgetactivesubdetectors, CFORTRANPNTR )
00040
00041 FCALLSCFUN2(INT, lcrhdsetrunnumber, LCRHDSETRUNNUMBER, lcrhdsetrunnumber, CFORTRANPNTR, INT )
00042 FCALLSCFUN2(INT, lcrhdsetdetectorname, LCRHDSETDETECTORNAME,lcrhdsetdetectorname, CFORTRANPNTR, STRING )
00043 FCALLSCFUN2(INT, lcrhdsetdescription, LCRHDSETDESCRIPTION,lcrhdsetdescription, CFORTRANPNTR, STRING )
00044 FCALLSCFUN2(INT, lcrhdaddactivesubdetector, LCRHDADDACTIVESUBDETECTOR,lcrhdaddactivesubdetector, CFORTRANPNTR, STRING )
00045 }
00046