lcrdr.h

#include "cfortran.h"
#include "cpointer.h"

// Warning: dont use "_" in function names as this causes two many
// trailing underscores on Linux

PTRTYPE lcrdrcreate() ;
int     lcrdrdelete( PTRTYPE reader ) ;

int   lcrdropen( PTRTYPE reader, const char* filename ) ;
int   lcrdrclose( PTRTYPE reader ) ;
int   lcrdrreadstream( PTRTYPE reader, int maxRecord ) ;

PTRTYPE lcrdrreadnextrunheader(PTRTYPE reader, int accessMode) ;
PTRTYPE lcrdrreadnextevent(PTRTYPE reader, int accessMode) ;
PTRTYPE lcrdrreadevent(PTRTYPE reader, int runNumber, int evtNumber );

int  lcrdrskipnevents( PTRTYPE reader, int n ) ;

extern "C"{

FCALLSCFUN0(CFORTRANPNTR, lcrdrcreate, LCRDRCREATE, lcrdrcreate ) 
FCALLSCFUN1(INT, lcrdrdelete, LCRDRDELETE, lcrdrdelete, CFORTRANPNTR ) 

FCALLSCFUN2(INT, lcrdropen, LCRDROPEN, lcrdropen,  CFORTRANPNTR, STRING ) 
FCALLSCFUN1(INT, lcrdrclose, LCRDRCLOSE, lcrdrclose, CFORTRANPNTR ) 
FCALLSCFUN2(INT, lcrdrreadstream, LCRDRREADSTREAM, lcrdrreadstream, CFORTRANPNTR, INT ) 

FCALLSCFUN2(CFORTRANPNTR,lcrdrreadnextrunheader,LCRDRREADNEXTRUNHEADER,lcrdrreadnextrunheader,CFORTRANPNTR,INT)
FCALLSCFUN2(CFORTRANPNTR,lcrdrreadnextevent,LCRDRREADNEXTEVENT,lcrdrreadnextevent,CFORTRANPNTR,INT)
FCALLSCFUN3(CFORTRANPNTR,lcrdrreadevent,LCRDRREADEVENT,lcrdrreadevent,CFORTRANPNTR,INT,INT)

FCALLSCFUN2(INT, lcrdrskipnevents, LCRDRSKIPNEVENTS, lcrdrskipnevents, CFORTRANPNTR, INT ) 

}