00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lctrkcreate() ;
00013 int lctrkdelete( PTRTYPE trk ) ;
00014
00015 int lctrkid( PTRTYPE trk ) ;
00016 int lctrkgettype( PTRTYPE trk ) ;
00017
00018
00019 float lctrkgetd0( PTRTYPE trk ) ;
00020 float lctrkgetphi( PTRTYPE trk ) ;
00021 float lctrkgetomega( PTRTYPE trk ) ;
00022 float lctrkgetz0( PTRTYPE trk ) ;
00023 float lctrkgettanlambda( PTRTYPE trk ) ;
00024
00025 int lctrkgetcovmatrix( PTRTYPE trk, float* cvmtx ) ;
00026 int lctrkgetreferencepoint( PTRTYPE trk, float* refpoint ) ;
00027
00028 float lctrkgetchi2( PTRTYPE trk ) ;
00029 int lctrkgetndf( PTRTYPE trk ) ;
00030 float lctrkgetdedx( PTRTYPE trk ) ;
00031 float lctrkgetdedxerror( PTRTYPE trk ) ;
00032 float lctrkgetradiusofinnermosthit( PTRTYPE trk ) ;
00033 int lctrkgetsubdetectorhitnumbers( PTRTYPE trk, int* intv, int* nintv) ;
00034 PTRTYPE lctrkgettracks( PTRTYPE trk ) ;
00035 PTRTYPE lctrkgettrackerhits( PTRTYPE trk ) ;
00036
00037 int lctrksettypebit( PTRTYPE trk, int index, int val ) ;
00038 int lctrksetomega( PTRTYPE trk, float omega ) ;
00039 int lctrksettanlambda( PTRTYPE trk, float tanlambda ) ;
00040 int lctrksetphi( PTRTYPE trk, float phi ) ;
00041 int lctrksetd0( PTRTYPE trk, float d0 ) ;
00042 int lctrksetz0( PTRTYPE trk, float z0 ) ;
00043 int lctrksetcovmatrix( PTRTYPE trk, float* cvmtx ) ;
00044 int lctrksetreferencepoint( PTRTYPE trk, float* refpoint ) ;
00045
00046 int lctrksetchi2( PTRTYPE trk, float chi2 ) ;
00047 int lctrksetndf( PTRTYPE trk, int ndf ) ;
00048 int lctrksetdedx( PTRTYPE trk, float dedx ) ;
00049 int lctrksetdedxerror( PTRTYPE trk, float dedxerr ) ;
00050 int lctrksetradiusofinnermosthit( PTRTYPE trk , float r) ;
00051 int lctrkaddtrack( PTRTYPE trk, PTRTYPE track ) ;
00052 int lctrkaddhit( PTRTYPE trk, PTRTYPE hit ) ;
00053
00054
00055
00056 int lctrksetsubdetectorhitnumbers( PTRTYPE trk, int* intv, const int nintv ) ;
00057
00058
00059
00060 extern "C"{
00061
00062 FCALLSCFUN0(CFORTRANPNTR, lctrkcreate, LCTRKCREATE, lctrkcreate )
00063 FCALLSCFUN1(INT, lctrkdelete, LCTRKDELETE, lctrkdelete, CFORTRANPNTR )
00064
00065 FCALLSCFUN1(INT, lctrkid, LCTRKID, lctrkid, CFORTRANPNTR)
00066 FCALLSCFUN1(INT, lctrkgettype, LCTRKGETTYPE, lctrkgettype, CFORTRANPNTR)
00067
00068 FCALLSCFUN1(FLOAT, lctrkgetomega, LCTRKGETOMEGA, lctrkgetomega, CFORTRANPNTR)
00069 FCALLSCFUN1(FLOAT, lctrkgettanlambda, LCTRKGETTANLAMBDA, lctrkgettanlambda, CFORTRANPNTR)
00070 FCALLSCFUN1(FLOAT, lctrkgetphi, LCTRKGETPHI, lctrkgetphi, CFORTRANPNTR)
00071 FCALLSCFUN1(FLOAT, lctrkgetd0, LCTRKGETD0, lctrkgetd0, CFORTRANPNTR)
00072 FCALLSCFUN1(FLOAT, lctrkgetz0, LCTRKGETZ0, lctrkgetz0, CFORTRANPNTR)
00073 FCALLSCFUN2(INT, lctrkgetcovmatrix, LCTRKGETCOVMATRIX, lctrkgetcovmatrix, CFORTRANPNTR, FLOATV)
00074 FCALLSCFUN2(INT, lctrkgetreferencepoint, LCTRKGETREFERENCEPOINT, lctrkgetreferencepoint, CFORTRANPNTR, FLOATV)
00075
00076 FCALLSCFUN1(FLOAT, lctrkgetchi2, LCTRKGETCHI2, lctrkgetchi2, CFORTRANPNTR)
00077 FCALLSCFUN1(INT, lctrkgetndf, LCTRKGETNDF, lctrkgetndf, CFORTRANPNTR)
00078 FCALLSCFUN1(FLOAT, lctrkgetdedx, LCTRKGETDEDX, lctrkgetdedx, CFORTRANPNTR)
00079 FCALLSCFUN1(FLOAT, lctrkgetdedxerror, LCTRKGETDEDXERROR, lctrkgetdedxerror, CFORTRANPNTR)
00080 FCALLSCFUN1(FLOAT, lctrkgetradiusofinnermosthit, LCTRKGETRADIUSOFINNERMOSTHIT, lctrkgetradiusofinnermosthit, CFORTRANPNTR)
00081 FCALLSCFUN3(INT, lctrkgetsubdetectorhitnumbers, LCTRKGETSUBDETECTORHITNUMBERS, lctrkgetsubdetectorhitnumbers, CFORTRANPNTR, INTV, INTV)
00082 FCALLSCFUN1(CFORTRANPNTR, lctrkgettracks, LCTRKGETTRACKS, lctrkgettracks, CFORTRANPNTR)
00083 FCALLSCFUN1(CFORTRANPNTR, lctrkgettrackerhits, LCTRKGETTRACKERHITS, lctrkgettrackerhits, CFORTRANPNTR)
00084
00085
00086 FCALLSCFUN3(INT, lctrksettypebit, LCTRKSETTYPEBIT, lctrksettypebit, CFORTRANPNTR, INT, INT)
00087 FCALLSCFUN2(INT, lctrksetomega, LCTRKSETOMEGA, lctrksetomega, CFORTRANPNTR, FLOAT)
00088 FCALLSCFUN2(INT, lctrksettanlambda, LCTRKSETTANLAMBDA, lctrksettanlambda, CFORTRANPNTR, FLOAT)
00089 FCALLSCFUN2(INT, lctrksetphi, LCTRKSETPHI, lctrksetphi, CFORTRANPNTR, FLOAT)
00090 FCALLSCFUN2(INT, lctrksetd0, LCTRKSETD0, lctrksetd0, CFORTRANPNTR, FLOAT)
00091 FCALLSCFUN2(INT, lctrksetz0, LCTRKSETZ0, lctrksetz0, CFORTRANPNTR, FLOAT)
00092 FCALLSCFUN2(INT, lctrksetcovmatrix, LCTRKSETCOVMATRIX, lctrksetcovmatrix, CFORTRANPNTR, FLOATV)
00093 FCALLSCFUN2(INT, lctrksetreferencepoint, LCTRKSETREFERENCEPOINT, lctrksetreferencepoint, CFORTRANPNTR, FLOATV)
00094
00095 FCALLSCFUN2(INT, lctrksetchi2, LCTRKSETCHI2, lctrksetchi2, CFORTRANPNTR, FLOAT)
00096 FCALLSCFUN2(INT, lctrksetndf, LCTRKSETNDF, lctrksetndf, CFORTRANPNTR, INT)
00097 FCALLSCFUN2(INT, lctrksetdedx, LCTRKSETDEDX, lctrksetdedx, CFORTRANPNTR, FLOAT)
00098 FCALLSCFUN2(INT, lctrksetdedxerror, LCTRKSETDEDXERROR, lctrksetdedxerror, CFORTRANPNTR, FLOAT)
00099 FCALLSCFUN2(INT, lctrksetradiusofinnermosthit, LCTRKSETRADIUSOFINNERMOSTHIT, lctrksetradiusofinnermosthit, CFORTRANPNTR, FLOAT)
00100 FCALLSCFUN2(INT, lctrkaddtrack, LCTRKADDTRACK, lctrkaddtrack, CFORTRANPNTR, CFORTRANPNTR)
00101 FCALLSCFUN2(INT, lctrkaddhit, LCTRKADDHIT, lctrkaddhit, CFORTRANPNTR, CFORTRANPNTR)
00102
00103 FCALLSCFUN3(INT, lctrksetsubdetectorhitnumbers, LCTRKSETSUBDETECTORHITNUMBERS, lctrksetsubdetectorhitnumbers, CFORTRANPNTR, INTV, INT )
00104
00105 }
00106
00107