lcrel.h

Go to the documentation of this file.

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

#include "deprecation.h"

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

// the relation interface
LCIO_DEPRECATED_CAPI PTRTYPE lcrelcreate0() ;
LCIO_DEPRECATED_CAPI PTRTYPE lcrelcreate( PTRTYPE objectfrom, PTRTYPE objectto, float weight ) ;
LCIO_DEPRECATED_CAPI int lcreldelete( PTRTYPE relation ) ;

LCIO_DEPRECATED_CAPI int lcrelid(PTRTYPE relation) ;
LCIO_DEPRECATED_CAPI PTRTYPE lcrelgetfrom( PTRTYPE relation ) ;
LCIO_DEPRECATED_CAPI PTRTYPE lcrelgetto( PTRTYPE relation ) ;
LCIO_DEPRECATED_CAPI float lcrelgetweight( PTRTYPE relation ) ;
               
LCIO_DEPRECATED_CAPI int lcrelsetfrom(PTRTYPE relation, PTRTYPE object ) ;
LCIO_DEPRECATED_CAPI int lcrelsetto(PTRTYPE relation, PTRTYPE object ) ;
LCIO_DEPRECATED_CAPI int lcrelsetweight(PTRTYPE relation,float weight ) ;

// now the fortran wrappers from cfortran.h
extern "C"{
FCALLSCFUN0(CFORTRANPNTR, lcrelcreate0, LCRELCREATE0, lcrelcreate0 ) 
FCALLSCFUN3(CFORTRANPNTR, lcrelcreate, LCRELCREATE, lcrelcreate, CFORTRANPNTR, CFORTRANPNTR, FLOAT ) 
FCALLSCFUN1(INT, lcreldelete, LCRELDELETE, lcreldelete, CFORTRANPNTR ) 

FCALLSCFUN1(INT, lcrelid, LCRELID, lcrelid, CFORTRANPNTR ) 
FCALLSCFUN1(CFORTRANPNTR, lcrelgetfrom, LCRELGETFROM, lcrelgetfrom, CFORTRANPNTR ) 
FCALLSCFUN1(CFORTRANPNTR, lcrelgetto, LCRELGETTO, lcrelgetto, CFORTRANPNTR ) 
FCALLSCFUN1(FLOAT, lcrelgetweight, LCRELGETWEIGHT, lcrelgetweight, CFORTRANPNTR ) 

FCALLSCFUN2(INT, lcrelsetfrom, LCRELSETFROM, lcrelsetfrom, CFORTRANPNTR, CFORTRANPNTR ) 
FCALLSCFUN2(INT, lcrelsetto, LCRELSETTO, lcrelsetto, CFORTRANPNTR, CFORTRANPNTR ) 
FCALLSCFUN2(INT, lcrelsetweight, LCRELSETWEIGHT, lcrelsetweight, CFORTRANPNTR, FLOAT ) 

}