doxygen_api/html/lctrh_8h_source.html

#include "cfortran.h"

#include "cpointer.h"


// Warning: dont use "_" in function names as this causes two many

// trailing underscores on Linux


PTRTYPE lctrhcreate() ;

int     lctrhdelete( PTRTYPE trh ) ;


int     lctrhid( PTRTYPE trh ) ;

int     lctrhgetposition( PTRTYPE trh, double* pos ) ;

int     lctrhgetcovmatrix( PTRTYPE trh, float* cvmtx ) ;

float   lctrhgetdedx( PTRTYPE trh ) ;

float   lctrhgetedep( PTRTYPE trh ) ;

float   lctrhgetedeperr( PTRTYPE trh ) ;

float   lctrhgettime( PTRTYPE trh ) ;

//char*   lctrhgettype( PTRTYPE trh ) ;

int   lctrhgettype( PTRTYPE trh ) ;

int     lctrhgetquality( PTRTYPE trh )  ;

int lctrhgetcellid0( PTRTYPE trh )  ;

int lctrhgetcellid1( PTRTYPE trh )  ;


PTRTYPE lctrhgetrawhits( PTRTYPE trh ) ;


int     lctrhsetposition( PTRTYPE trh, double* pos ) ;

int     lctrhsetcovmatrix( PTRTYPE trh, float* cvmtx ) ;

int     lctrhsetdedx( PTRTYPE trh, float dedx ) ;

int     lctrhsetedep( PTRTYPE trh, float e ) ;

int     lctrhsetedeperr( PTRTYPE trh, float e ) ;

int     lctrhsettime( PTRTYPE trh, float time ) ;

int     lctrhsettype( PTRTYPE trh, int type ) ;

int     lctrhsetquality( PTRTYPE trh, int q );

int     lctrhsetcellid0( PTRTYPE trh, int id0) ;

int     lctrhsetcellid1( PTRTYPE trh, int id1) ;

int     lctrhaddrawhit( PTRTYPE trh, PTRTYPE rawhit ) ;


// now the fortran wrappers from cfortran.h

extern "C"{


FCALLSCFUN0(CFORTRANPNTR, lctrhcreate, LCTRHCREATE, lctrhcreate )

FCALLSCFUN1(INT, lctrhdelete, LCTRHDELETE, lctrhdelete, CFORTRANPNTR )


FCALLSCFUN1(INT, lctrhid, LCTRHID, lctrhid, CFORTRANPNTR)

FCALLSCFUN2(INT, lctrhgetposition, LCTRHGETPOSITION, lctrhgetposition, CFORTRANPNTR, DOUBLEV )

FCALLSCFUN2(INT, lctrhgetcovmatrix, LCTRHGETCOVMATRIX, lctrhgetcovmatrix, CFORTRANPNTR, FLOATV)

FCALLSCFUN1(FLOAT, lctrhgetdedx, LCTRHGETDEDX, lctrhgetdedx, CFORTRANPNTR)

FCALLSCFUN1(FLOAT, lctrhgetedep, LCTRHGETEDEP, lctrhgetedep, CFORTRANPNTR)

FCALLSCFUN1(FLOAT, lctrhgetedeperr, LCTRHGETEDEPERR, lctrhgetedeperr, CFORTRANPNTR)

FCALLSCFUN1(FLOAT, lctrhgettime, LCTRHGETTIME, lctrhgettime, CFORTRANPNTR)

  //FCALLSCFUN1(STRING, lctrhgettype, LCTRHGETTYPE, lctrhgettype, CFORTRANPNTR )

FCALLSCFUN1(INT, lctrhgettype, LCTRHGETTYPE, lctrhgettype, CFORTRANPNTR )

FCALLSCFUN1(INT, lctrhgetquality,LCTRHGETQUALITY, lctrhgetquality,CFORTRANPNTR)

FCALLSCFUN1(INT, lctrhgetcellid0, LCTRHGETCELLID0, lctrhgetcellid0, CFORTRANPNTR )

FCALLSCFUN1(INT, lctrhgetcellid1, LCTRHGETCELLID1, lctrhgetcellid1, CFORTRANPNTR )

FCALLSCFUN1(CFORTRANPNTR, lctrhgetrawhits,  LCTRHGETRAWHITS, lctrhgetrawhits, CFORTRANPNTR)


FCALLSCFUN2(INT, lctrhsetposition, LCTRHSETPOSITION, lctrhsetposition, CFORTRANPNTR, DOUBLEV)

FCALLSCFUN2(INT, lctrhsetcovmatrix, LCTRHSETCOVMATRIX, lctrhsetcovmatrix, CFORTRANPNTR, FLOATV)

FCALLSCFUN2(INT, lctrhsetdedx, LCTRHSETDEDX, lctrhsetdedx, CFORTRANPNTR, FLOAT)

FCALLSCFUN2(INT, lctrhsetedep, LCTRHSETEDEP, lctrhsetedep, CFORTRANPNTR, FLOAT)

FCALLSCFUN2(INT, lctrhsetedeperr, LCTRHSETEDEPERR, lctrhsetedeperr, CFORTRANPNTR, FLOAT)

FCALLSCFUN2(INT, lctrhsettime, LCTRHSETTIME, lctrhsettime, CFORTRANPNTR, FLOAT)

FCALLSCFUN2(INT, lctrhsettype, LCTRHSETTYPE, lctrhsettype, CFORTRANPNTR, INT )

FCALLSCFUN2(INT, lctrhsetquality, LCTRHSETQUALITY, lctrhsetquality, CFORTRANPNTR, INT )

FCALLSCFUN2(INT, lctrhsetcellid0,LCTRHSETCELLID0,lctrhsetcellid0, CFORTRANPNTR, INT )

FCALLSCFUN2(INT, lctrhsetcellid1,LCTRHSETCELLID1,lctrhsetcellid1, CFORTRANPNTR, INT )


FCALLSCFUN2(INT, lctrhaddrawhit, LCTRHADDRAWHIT, lctrhaddrawhit, CFORTRANPNTR, CFORTRANPNTR)


}