00001
00008 #include "cfortran.h"
00009 #include "cpointer.h"
00010
00011
00012
00013
00014 PTRTYPE lcrdrcreate() ;
00015 int lcrdrdelete( PTRTYPE reader ) ;
00016
00017 int lcrdropen( PTRTYPE reader, const char* filename ) ;
00018 int lcrdrclose( PTRTYPE reader ) ;
00019 int lcrdrreadstream( PTRTYPE reader, int maxRecord ) ;
00020
00021 PTRTYPE lcrdrreadnextrunheader(PTRTYPE reader, int accessMode) ;
00022 PTRTYPE lcrdrreadnextevent(PTRTYPE reader, int accessMode) ;
00023 PTRTYPE lcrdrreadevent(PTRTYPE reader, int runNumber, int evtNumber );
00024
00025 int lcrdrskipnevents( PTRTYPE reader, int n ) ;
00026
00027 extern "C"{
00028
00029 FCALLSCFUN0(CFORTRANPNTR, lcrdrcreate, LCRDRCREATE, lcrdrcreate )
00030 FCALLSCFUN1(INT, lcrdrdelete, LCRDRDELETE, lcrdrdelete, CFORTRANPNTR )
00031
00032 FCALLSCFUN2(INT, lcrdropen, LCRDROPEN, lcrdropen, CFORTRANPNTR, STRING )
00033 FCALLSCFUN1(INT, lcrdrclose, LCRDRCLOSE, lcrdrclose, CFORTRANPNTR )
00034 FCALLSCFUN2(INT, lcrdrreadstream, LCRDRREADSTREAM, lcrdrreadstream, CFORTRANPNTR, INT )
00035
00036 FCALLSCFUN2(CFORTRANPNTR,lcrdrreadnextrunheader,LCRDRREADNEXTRUNHEADER,lcrdrreadnextrunheader,CFORTRANPNTR,INT)
00037 FCALLSCFUN2(CFORTRANPNTR,lcrdrreadnextevent,LCRDRREADNEXTEVENT,lcrdrreadnextevent,CFORTRANPNTR,INT)
00038 FCALLSCFUN3(CFORTRANPNTR,lcrdrreadevent,LCRDRREADEVENT,lcrdrreadevent,CFORTRANPNTR,INT,INT)
00039
00040 FCALLSCFUN2(INT, lcrdrskipnevents, LCRDRSKIPNEVENTS, lcrdrskipnevents, CFORTRANPNTR, INT )
00041
00042 }
00043