00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013
00014 int lcobvgetlength( PTRTYPE vector ) ;
00015 PTRTYPE lcobvgetobject( PTRTYPE vector, int index ) ;
00016 int lcobvgetobjectid( PTRTYPE vector, int index ) ;
00017 float lcobvgetweight( PTRTYPE vector, int index ) ;
00018
00019
00020 extern "C"{
00021 FCALLSCFUN1(INT, lcobvgetlength, LCOBVGETLENGTH, lcobvgetlength,
00022 CFORTRANPNTR )
00023 FCALLSCFUN2(CFORTRANPNTR, lcobvgetobject, LCOBVGETOBJECT, lcobvgetobject,
00024 CFORTRANPNTR, INT )
00025 FCALLSCFUN2(INT, lcobvgetobjectid, LCOBVGETOBJECTID, lcobvgetobjectid,
00026 CFORTRANPNTR, INT )
00027 FCALLSCFUN2(FLOAT, lcobvgetweight, LCOBVGETWEIGHT, lcobvgetweight,
00028 CFORTRANPNTR, INT )
00029
00030 }
00031