lcwrt.h

Go to the documentation of this file.

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

#include "deprecation.h"

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

LCIO_DEPRECATED_CAPI PTRTYPE lcwrtcreate() ;
LCIO_DEPRECATED_CAPI int     lcwrtdelete( PTRTYPE writer ) ;

// the writer interface
LCIO_DEPRECATED_CAPI int   lcwrtopen( PTRTYPE writer, const char* filename , int writeMode ) ;
LCIO_DEPRECATED_CAPI int   lcwrtclose( PTRTYPE writer ) ;

LCIO_DEPRECATED_CAPI int   lcwrtwriterunheader( PTRTYPE writer, PTRTYPE header) ;
LCIO_DEPRECATED_CAPI int   lcwrtwriteevent( PTRTYPE writer, PTRTYPE event) ;


// now the fortran wrappers from cfortran.h
extern "C"{
FCALLSCFUN0(CFORTRANPNTR, lcwrtcreate, LCWRTCREATE, lcwrtcreate ) 
FCALLSCFUN1(INT, lcwrtdelete, LCWRTDELETE, lcwrtdelete, CFORTRANPNTR ) 

FCALLSCFUN3(INT, lcwrtopen, LCWRTOPEN, lcwrtopen, CFORTRANPNTR, STRING ,INT ) 
FCALLSCFUN1(INT, lcwrtclose, LCWRTCLOSE, lcwrtclose, CFORTRANPNTR ) 

FCALLSCFUN2(INT, lcwrtwriterunheader,LCWRTWRITERUNHEADER,lcwrtwriterunheader,CFORTRANPNTR,CFORTRANPNTR ) 
FCALLSCFUN2(INT, lcwrtwriteevent,LCWRTWRITEEVENT,lcwrtwriteevent,CFORTRANPNTR,CFORTRANPNTR ) 

}