00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013
00014 PTRTYPE lcrelcreate0() ;
00015 PTRTYPE lcrelcreate( PTRTYPE objectfrom, PTRTYPE objectto, float weight ) ;
00016 int lcreldelete( PTRTYPE relation ) ;
00017
00018 int lcrelid(PTRTYPE relation) ;
00019 PTRTYPE lcrelgetfrom( PTRTYPE relation ) ;
00020 PTRTYPE lcrelgetto( PTRTYPE relation ) ;
00021 float lcrelgetweight( PTRTYPE relation ) ;
00022
00023 int lcrelsetfrom(PTRTYPE relation, PTRTYPE object ) ;
00024 int lcrelsetto(PTRTYPE relation, PTRTYPE object ) ;
00025 int lcrelsetweight(PTRTYPE relation,float weight ) ;
00026
00027
00028 extern "C"{
00029 FCALLSCFUN0(CFORTRANPNTR, lcrelcreate0, LCRELCREATE0, lcrelcreate0 )
00030 FCALLSCFUN3(CFORTRANPNTR, lcrelcreate, LCRELCREATE, lcrelcreate, CFORTRANPNTR, CFORTRANPNTR, FLOAT )
00031 FCALLSCFUN1(INT, lcreldelete, LCRELDELETE, lcreldelete, CFORTRANPNTR )
00032
00033 FCALLSCFUN1(INT, lcrelid, LCRELID, lcrelid, CFORTRANPNTR )
00034 FCALLSCFUN1(CFORTRANPNTR, lcrelgetfrom, LCRELGETFROM, lcrelgetfrom, CFORTRANPNTR )
00035 FCALLSCFUN1(CFORTRANPNTR, lcrelgetto, LCRELGETTO, lcrelgetto, CFORTRANPNTR )
00036 FCALLSCFUN1(FLOAT, lcrelgetweight, LCRELGETWEIGHT, lcrelgetweight, CFORTRANPNTR )
00037
00038 FCALLSCFUN2(INT, lcrelsetfrom, LCRELSETFROM, lcrelsetfrom, CFORTRANPNTR, CFORTRANPNTR )
00039 FCALLSCFUN2(INT, lcrelsetto, LCRELSETTO, lcrelsetto, CFORTRANPNTR, CFORTRANPNTR )
00040 FCALLSCFUN2(INT, lcrelsetweight, LCRELSETWEIGHT, lcrelsetweight, CFORTRANPNTR, FLOAT )
00041
00042 }
00043