lcobv.h

#include "cfortran.h"
#include "cpointer.h"

// Warning: dont use "_" in function names as this causes two many
// trailing underscores on Linux

// the RelationNavigator interface
int lcobvgetlength( PTRTYPE vector ) ;
PTRTYPE lcobvgetobject( PTRTYPE vector, int index ) ;
int lcobvgetobjectid( PTRTYPE vector, int index ) ;
float lcobvgetweight( PTRTYPE vector, int index ) ;

// now the fortran wrappers from cfortran.h
extern "C"{
FCALLSCFUN1(INT, lcobvgetlength, LCOBVGETLENGTH, lcobvgetlength, 
            CFORTRANPNTR ) 
FCALLSCFUN2(CFORTRANPNTR, lcobvgetobject, LCOBVGETOBJECT, lcobvgetobject,
            CFORTRANPNTR, INT ) 
FCALLSCFUN2(INT, lcobvgetobjectid, LCOBVGETOBJECTID, lcobvgetobjectid,
            CFORTRANPNTR, INT )
FCALLSCFUN2(FLOAT, lcobvgetweight, LCOBVGETWEIGHT, lcobvgetweight,
            CFORTRANPNTR, INT )

}