00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lcsthcreate() ;
00013 int lcsthdelete( PTRTYPE hit ) ;
00014
00015 int lcsthgetcellid( PTRTYPE hit ) ;
00016 int lcsthgetcellid0( PTRTYPE hit ) ;
00017 int lcsthgetcellid1( PTRTYPE hit ) ;
00018 double lcsthgetposition( PTRTYPE hit, int index ) ;
00019 float lcsthgetmomentum( PTRTYPE hit, int index ) ;
00020 float lcsthgetpathlength ( PTRTYPE hit ) ;
00021 float lcsthgetdedx( PTRTYPE hit ) ;
00022 float lcsthgetedep( PTRTYPE hit ) ;
00023 float lcsthgettime( PTRTYPE hit ) ;
00024 int lcsthgetquality( PTRTYPE hit ) ;
00025
00026 PTRTYPE lcsthgetmcparticle( PTRTYPE hit ) ;
00027
00028 int lcsthsetcellid( PTRTYPE hit, int id ) ;
00029 int lcsthsetcellid0( PTRTYPE hit, int id ) ;
00030 int lcsthsetcellid1( PTRTYPE hit, int id ) ;
00031 int lcsthsetposition( PTRTYPE hit, double pos[3] ) ;
00032 int lcsthsetmomentum( PTRTYPE hit, float pos[3] ) ;
00033 int lcsthsetmomentumxyz( PTRTYPE hit, float px, float py, float pz ) ;
00034 int lcsthsetpathlength( PTRTYPE hit, float pathLength ) ;
00035 int lcsthsetdedx( PTRTYPE hit, float dEdX ) ;
00036 int lcsthsetedep( PTRTYPE hit, float e ) ;
00037 int lcsthsettime( PTRTYPE hit, float t ) ;
00038 int lcsthsetmcparticle( PTRTYPE hit, PTRTYPE particle ) ;
00039 int lcsthsetquality( PTRTYPE hit, int quality ) ;
00040
00041
00042 extern "C"{
00043
00044 FCALLSCFUN0(CFORTRANPNTR, lcsthcreate, LCSTHCREATE, lcsthcreate )
00045 FCALLSCFUN1(INT, lcsthdelete, LCSTHDELETE, lcsthdelete, CFORTRANPNTR )
00046
00047 FCALLSCFUN1(INT, lcsthgetcellid,LCSTHGETCELLID,lcsthgetcellid,CFORTRANPNTR)
00048 FCALLSCFUN1(INT, lcsthgetcellid0,LCSTHGETCELLID0,lcsthgetcellid0,CFORTRANPNTR)
00049 FCALLSCFUN1(INT, lcsthgetcellid1,LCSTHGETCELLID1,lcsthgetcellid1,CFORTRANPNTR)
00050 FCALLSCFUN2(DOUBLE, lcsthgetposition, LCSTHGETPOSITION, lcsthgetposition, CFORTRANPNTR, INT )
00051 FCALLSCFUN2(FLOAT, lcsthgetmomentum, LCSTHGETMOMENTUM, lcsthgetmomentum, CFORTRANPNTR, INT )
00052 FCALLSCFUN1(FLOAT, lcsthgetpathlength,LCSTHGETPATHLENGTH,lcsthgetpathlength,CFORTRANPNTR)
00053 FCALLSCFUN1(FLOAT, lcsthgetdedx,LCSTHGETDEDX,lcsthgetdedx,CFORTRANPNTR)
00054 FCALLSCFUN1(FLOAT, lcsthgetedep,LCSTHGETEDEP,lcsthgetedep,CFORTRANPNTR)
00055 FCALLSCFUN1(FLOAT, lcsthgettime,LCSTHGETTIME,lcsthgettime,CFORTRANPNTR)
00056 FCALLSCFUN1(INT, lcsthgetquality,LCSTHGETQUALITY,lcsthgetquality,CFORTRANPNTR)
00057
00058 FCALLSCFUN1(CFORTRANPNTR,lcsthgetmcparticle,LCSTHGETMCPARTICLE,lcsthgetmcparticle,CFORTRANPNTR)
00059
00060 FCALLSCFUN2(INT, lcsthsetcellid, LCSTHSETCELLID, lcsthsetcellid, CFORTRANPNTR, INT )
00061 FCALLSCFUN2(INT, lcsthsetcellid0, LCSTHSETCELLID0, lcsthsetcellid0, CFORTRANPNTR, INT )
00062 FCALLSCFUN2(INT, lcsthsetcellid1, LCSTHSETCELLID1, lcsthsetcellid1, CFORTRANPNTR, INT )
00063 FCALLSCFUN2(INT, lcsthsetposition, LCSTHSETPOSITION, lcsthsetposition, CFORTRANPNTR, DOUBLEV )
00064 FCALLSCFUN2(INT, lcsthsetmomentum, LCSTHSETMOMENTUM, lcsthsetmomentum, CFORTRANPNTR, FLOATV )
00065 FCALLSCFUN4(INT, lcsthsetmomentumxyz, LCSTHSETMOMENTUMXYZ, lcsthsetmomentumxyz, CFORTRANPNTR,
00066 FLOAT, FLOAT, FLOAT )
00067 FCALLSCFUN2(INT, lcsthsetpathlength, LCSTHSETPATHLENGTH, lcsthsetpathlength, CFORTRANPNTR, FLOAT )
00068 FCALLSCFUN2(INT, lcsthsetdedx, LCSTHSETDEDX, lcsthsetdedx, CFORTRANPNTR, FLOAT )
00069 FCALLSCFUN2(INT, lcsthsetedep, LCSTHSETEDEP, lcsthsetedep, CFORTRANPNTR, FLOAT )
00070 FCALLSCFUN2(INT, lcsthsettime, LCSTHSETTIME, lcsthsettime, CFORTRANPNTR, FLOAT )
00071 FCALLSCFUN2(INT, lcsthsetmcparticle, LCSTHSETMCPARTICLE, lcsthsetmcparticle, CFORTRANPNTR, CFORTRANPNTR )
00072 FCALLSCFUN2(INT, lcsthsetquality, LCSTHSETQUALITY, lcsthsetquality, CFORTRANPNTR, INT )
00073 }
00074