00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013 PTRTYPE lcwrtcreate() ;
00014 int lcwrtdelete( PTRTYPE writer ) ;
00015
00016
00017 int lcwrtopen( PTRTYPE writer, const char* filename , int writeMode ) ;
00018 int lcwrtclose( PTRTYPE writer ) ;
00019
00020 int lcwrtwriterunheader( PTRTYPE writer, PTRTYPE header) ;
00021 int lcwrtwriteevent( PTRTYPE writer, PTRTYPE event) ;
00022
00023
00024
00025 extern "C"{
00026 FCALLSCFUN0(CFORTRANPNTR, lcwrtcreate, LCWRTCREATE, lcwrtcreate )
00027 FCALLSCFUN1(INT, lcwrtdelete, LCWRTDELETE, lcwrtdelete, CFORTRANPNTR )
00028
00029 FCALLSCFUN3(INT, lcwrtopen, LCWRTOPEN, lcwrtopen, CFORTRANPNTR, STRING ,INT )
00030 FCALLSCFUN1(INT, lcwrtclose, LCWRTCLOSE, lcwrtclose, CFORTRANPNTR )
00031
00032 FCALLSCFUN2(INT, lcwrtwriterunheader,LCWRTWRITERUNHEADER,lcwrtwriterunheader,CFORTRANPNTR,CFORTRANPNTR )
00033 FCALLSCFUN2(INT, lcwrtwriteevent,LCWRTWRITEEVENT,lcwrtwriteevent,CFORTRANPNTR,CFORTRANPNTR )
00034
00035 }
00036