LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcrel.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 // the relation interface
14 PTRTYPE lcrelcreate0() ;
15 PTRTYPE lcrelcreate( PTRTYPE objectfrom, PTRTYPE objectto, float weight ) ;
16 int lcreldelete( PTRTYPE relation ) ;
17 
18 int lcrelid(PTRTYPE relation) ;
19 PTRTYPE lcrelgetfrom( PTRTYPE relation ) ;
20 PTRTYPE lcrelgetto( PTRTYPE relation ) ;
21 float lcrelgetweight( PTRTYPE relation ) ;
22 
23 int lcrelsetfrom(PTRTYPE relation, PTRTYPE object ) ;
24 int lcrelsetto(PTRTYPE relation, PTRTYPE object ) ;
25 int lcrelsetweight(PTRTYPE relation,float weight ) ;
26 
27 // now the fortran wrappers from cfortran.h
28 extern "C"{
29 FCALLSCFUN0(CFORTRANPNTR, lcrelcreate0, LCRELCREATE0, lcrelcreate0 )
30 FCALLSCFUN3(CFORTRANPNTR, lcrelcreate, LCRELCREATE, lcrelcreate, CFORTRANPNTR, CFORTRANPNTR, FLOAT )
31 FCALLSCFUN1(INT, lcreldelete, LCRELDELETE, lcreldelete, CFORTRANPNTR )
32 
33 FCALLSCFUN1(INT, lcrelid, LCRELID, lcrelid, CFORTRANPNTR )
34 FCALLSCFUN1(CFORTRANPNTR, lcrelgetfrom, LCRELGETFROM, lcrelgetfrom, CFORTRANPNTR )
35 FCALLSCFUN1(CFORTRANPNTR, lcrelgetto, LCRELGETTO, lcrelgetto, CFORTRANPNTR )
36 FCALLSCFUN1(FLOAT, lcrelgetweight, LCRELGETWEIGHT, lcrelgetweight, CFORTRANPNTR )
37 
38 FCALLSCFUN2(INT, lcrelsetfrom, LCRELSETFROM, lcrelsetfrom, CFORTRANPNTR, CFORTRANPNTR )
39 FCALLSCFUN2(INT, lcrelsetto, LCRELSETTO, lcrelsetto, CFORTRANPNTR, CFORTRANPNTR )
40 FCALLSCFUN2(INT, lcrelsetweight, LCRELSETWEIGHT, lcrelsetweight, CFORTRANPNTR, FLOAT )
41 
42 }
43