LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcwrt.h
1 
7 #include "cfortran.h"
8 #include "cpointer.h"
9 
10 // Warning: dont use "_" in function names as this causes two many
11 // trailing underscores on Linux
12 
13 PTRTYPE lcwrtcreate() ;
14 int lcwrtdelete( PTRTYPE writer ) ;
15 
16 // the writer interface
17 int lcwrtopen( PTRTYPE writer, const char* filename , int writeMode ) ;
18 int lcwrtclose( PTRTYPE writer ) ;
19 
20 int lcwrtwriterunheader( PTRTYPE writer, PTRTYPE header) ;
21 int lcwrtwriteevent( PTRTYPE writer, PTRTYPE event) ;
22 
23 
24 // now the fortran wrappers from cfortran.h
25 extern "C"{
26 FCALLSCFUN0(CFORTRANPNTR, lcwrtcreate, LCWRTCREATE, lcwrtcreate )
27 FCALLSCFUN1(INT, lcwrtdelete, LCWRTDELETE, lcwrtdelete, CFORTRANPNTR )
28 
29 FCALLSCFUN3(INT, lcwrtopen, LCWRTOPEN, lcwrtopen, CFORTRANPNTR, STRING ,INT )
30 FCALLSCFUN1(INT, lcwrtclose, LCWRTCLOSE, lcwrtclose, CFORTRANPNTR )
31 
32 FCALLSCFUN2(INT, lcwrtwriterunheader,LCWRTWRITERUNHEADER,lcwrtwriterunheader,CFORTRANPNTR,CFORTRANPNTR )
33 FCALLSCFUN2(INT, lcwrtwriteevent,LCWRTWRITEEVENT,lcwrtwriteevent,CFORTRANPNTR,CFORTRANPNTR )
34 
35 }
36