00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lctrhcreate() ;
00013 int lctrhdelete( PTRTYPE trh ) ;
00014
00015 int lctrhid( PTRTYPE trh ) ;
00016 int lctrhgetposition( PTRTYPE trh, double* pos ) ;
00017 int lctrhgetcovmatrix( PTRTYPE trh, float* cvmtx ) ;
00018 float lctrhgetdedx( PTRTYPE trh ) ;
00019 float lctrhgetedep( PTRTYPE trh ) ;
00020 float lctrhgetedeperr( PTRTYPE trh ) ;
00021 float lctrhgettime( PTRTYPE trh ) ;
00022
00023 int lctrhgettype( PTRTYPE trh ) ;
00024 int lctrhgetquality( PTRTYPE trh ) ;
00025 int lctrhgetcellid0( PTRTYPE trh ) ;
00026 int lctrhgetcellid1( PTRTYPE trh ) ;
00027
00028 PTRTYPE lctrhgetrawhits( PTRTYPE trh ) ;
00029
00030 int lctrhsetposition( PTRTYPE trh, double* pos ) ;
00031 int lctrhsetcovmatrix( PTRTYPE trh, float* cvmtx ) ;
00032 int lctrhsetdedx( PTRTYPE trh, float dedx ) ;
00033 int lctrhsetedep( PTRTYPE trh, float e ) ;
00034 int lctrhsetedeperr( PTRTYPE trh, float e ) ;
00035 int lctrhsettime( PTRTYPE trh, float time ) ;
00036 int lctrhsettype( PTRTYPE trh, int type ) ;
00037 int lctrhsetquality( PTRTYPE trh, int q );
00038 int lctrhsetcellid0( PTRTYPE trh, int id0) ;
00039 int lctrhsetcellid1( PTRTYPE trh, int id1) ;
00040 int lctrhaddrawhit( PTRTYPE trh, PTRTYPE rawhit ) ;
00041
00042
00043
00044 extern "C"{
00045
00046 FCALLSCFUN0(CFORTRANPNTR, lctrhcreate, LCTRHCREATE, lctrhcreate )
00047 FCALLSCFUN1(INT, lctrhdelete, LCTRHDELETE, lctrhdelete, CFORTRANPNTR )
00048
00049 FCALLSCFUN1(INT, lctrhid, LCTRHID, lctrhid, CFORTRANPNTR)
00050 FCALLSCFUN2(INT, lctrhgetposition, LCTRHGETPOSITION, lctrhgetposition, CFORTRANPNTR, DOUBLEV )
00051 FCALLSCFUN2(INT, lctrhgetcovmatrix, LCTRHGETCOVMATRIX, lctrhgetcovmatrix, CFORTRANPNTR, FLOATV)
00052 FCALLSCFUN1(FLOAT, lctrhgetdedx, LCTRHGETDEDX, lctrhgetdedx, CFORTRANPNTR)
00053 FCALLSCFUN1(FLOAT, lctrhgetedep, LCTRHGETEDEP, lctrhgetedep, CFORTRANPNTR)
00054 FCALLSCFUN1(FLOAT, lctrhgetedeperr, LCTRHGETEDEPERR, lctrhgetedeperr, CFORTRANPNTR)
00055 FCALLSCFUN1(FLOAT, lctrhgettime, LCTRHGETTIME, lctrhgettime, CFORTRANPNTR)
00056
00057 FCALLSCFUN1(INT, lctrhgettype, LCTRHGETTYPE, lctrhgettype, CFORTRANPNTR )
00058 FCALLSCFUN1(INT, lctrhgetquality,LCTRHGETQUALITY, lctrhgetquality,CFORTRANPNTR)
00059 FCALLSCFUN1(INT, lctrhgetcellid0, LCTRHGETCELLID0, lctrhgetcellid0, CFORTRANPNTR )
00060 FCALLSCFUN1(INT, lctrhgetcellid1, LCTRHGETCELLID1, lctrhgetcellid1, CFORTRANPNTR )
00061 FCALLSCFUN1(CFORTRANPNTR, lctrhgetrawhits, LCTRHGETRAWHITS, lctrhgetrawhits, CFORTRANPNTR)
00062
00063 FCALLSCFUN2(INT, lctrhsetposition, LCTRHSETPOSITION, lctrhsetposition, CFORTRANPNTR, DOUBLEV)
00064 FCALLSCFUN2(INT, lctrhsetcovmatrix, LCTRHSETCOVMATRIX, lctrhsetcovmatrix, CFORTRANPNTR, FLOATV)
00065 FCALLSCFUN2(INT, lctrhsetdedx, LCTRHSETDEDX, lctrhsetdedx, CFORTRANPNTR, FLOAT)
00066 FCALLSCFUN2(INT, lctrhsetedep, LCTRHSETEDEP, lctrhsetedep, CFORTRANPNTR, FLOAT)
00067 FCALLSCFUN2(INT, lctrhsetedeperr, LCTRHSETEDEPERR, lctrhsetedeperr, CFORTRANPNTR, FLOAT)
00068 FCALLSCFUN2(INT, lctrhsettime, LCTRHSETTIME, lctrhsettime, CFORTRANPNTR, FLOAT)
00069 FCALLSCFUN2(INT, lctrhsettype, LCTRHSETTYPE, lctrhsettype, CFORTRANPNTR, INT )
00070 FCALLSCFUN2(INT, lctrhsetquality, LCTRHSETQUALITY, lctrhsetquality, CFORTRANPNTR, INT )
00071 FCALLSCFUN2(INT, lctrhsetcellid0,LCTRHSETCELLID0,lctrhsetcellid0, CFORTRANPNTR, INT )
00072 FCALLSCFUN2(INT, lctrhsetcellid1,LCTRHSETCELLID1,lctrhsetcellid1, CFORTRANPNTR, INT )
00073
00074 FCALLSCFUN2(INT, lctrhaddrawhit, LCTRHADDRAWHIT, lctrhaddrawhit, CFORTRANPNTR, CFORTRANPNTR)
00075
00076 }
00077
00078