LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcobv.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 RelationNavigator interface
14 int lcobvgetlength( PTRTYPE vector ) ;
15 PTRTYPE lcobvgetobject( PTRTYPE vector, int index ) ;
16 int lcobvgetobjectid( PTRTYPE vector, int index ) ;
17 float lcobvgetweight( PTRTYPE vector, int index ) ;
18 
19 // now the fortran wrappers from cfortran.h
20 extern "C"{
21 FCALLSCFUN1(INT, lcobvgetlength, LCOBVGETLENGTH, lcobvgetlength,
22  CFORTRANPNTR )
23 FCALLSCFUN2(CFORTRANPNTR, lcobvgetobject, LCOBVGETOBJECT, lcobvgetobject,
24  CFORTRANPNTR, INT )
25 FCALLSCFUN2(INT, lcobvgetobjectid, LCOBVGETOBJECTID, lcobvgetobjectid,
26  CFORTRANPNTR, INT )
27 FCALLSCFUN2(FLOAT, lcobvgetweight, LCOBVGETWEIGHT, lcobvgetweight,
28  CFORTRANPNTR, INT )
29 
30 }
31