00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013 PTRTYPE lcschcreate() ;
00014 int lcschdelete( PTRTYPE simcalhit ) ;
00015
00016 int lcschid( PTRTYPE simcalhit ) ;
00017 int lcschgetcellid0( PTRTYPE simcalhit ) ;
00018 int lcschgetcellid1( PTRTYPE simcalhit ) ;
00019 float lcschgetenergy( PTRTYPE simcalhit ) ;
00020 int lcschgetposition( PTRTYPE simcalhit, float * ) ;
00021 int lcschgetnmcparticles( PTRTYPE simcalhit ) ;
00022 int lcschgetnmccontributions( PTRTYPE simcalhit ) ;
00023
00024 PTRTYPE lcschgetparticlecont( PTRTYPE simcalhit, int i) ;
00025 float lcschgetenergycont( PTRTYPE simcalhit, int i) ;
00026 float lcschgettimecont( PTRTYPE simcalhit, int i) ;
00027 int lcschgetpdgcont( PTRTYPE simcalhit, int i) ;
00028
00029 int lcschsetcellid0( PTRTYPE simcalhit, int id0) ;
00030 int lcschsetcellid1( PTRTYPE simcalhit, int id1) ;
00031 int lcschsetenergy( PTRTYPE simcalhit, float en) ;
00032 int lcschsetposition( PTRTYPE simcalhit, float pos[3]) ;
00033 int lcschaddmcparticlecontribution( PTRTYPE simcalhit, PTRTYPE mcparticle, float en,float t, int pdg ) ;
00034
00035
00036 extern "C"{
00037 FCALLSCFUN0(CFORTRANPNTR, lcschcreate,LCSCHCREATE, lcschcreate )
00038 FCALLSCFUN1(INT, lcschdelete, LCSCHDELETE, lcschdelete, CFORTRANPNTR )
00039
00040 FCALLSCFUN1(INT, lcschid, LCSCHID, lcschid, CFORTRANPNTR )
00041 FCALLSCFUN1(INT, lcschgetcellid0, LCSCHGETCELLID0, lcschgetcellid0, CFORTRANPNTR )
00042 FCALLSCFUN1(INT, lcschgetcellid1, LCSCHGETCELLID1, lcschgetcellid1, CFORTRANPNTR )
00043 FCALLSCFUN1(FLOAT, lcschgetenergy, LCSCHGETENERGY, lcschgetenergy, CFORTRANPNTR )
00044 FCALLSCFUN2(INT, lcschgetposition,LCSCHGETPOSITION,lcschgetposition, CFORTRANPNTR, FLOATV )
00045 FCALLSCFUN1(INT, lcschgetnmcparticles,LCSCHGETNMCPARTICLES,lcschgetnmcparticles, CFORTRANPNTR )
00046 FCALLSCFUN1(INT, lcschgetnmccontributions,LCSCHGETNMCCONTRIBUTIONS,lcschgetnmccontributions, CFORTRANPNTR )
00047
00048 FCALLSCFUN2(CFORTRANPNTR, lcschgetparticlecont,LCSCHGETPARTICLECONT,lcschgetparticlecont,CFORTRANPNTR,INT )
00049 FCALLSCFUN2(FLOAT, lcschgetenergycont,LCSCHGETENERGYCONT,lcschgetenergycont,CFORTRANPNTR, INT )
00050 FCALLSCFUN2(FLOAT, lcschgettimecont,LCSCHGETTIMECONT,lcschgettimecont,CFORTRANPNTR,INT )
00051
00052 FCALLSCFUN2(INT, lcschsetcellid0,LCSCHSETCELLID0,lcschsetcellid0, CFORTRANPNTR, INT )
00053 FCALLSCFUN2(INT, lcschsetcellid1,LCSCHSETCELLID1,lcschsetcellid1, CFORTRANPNTR, INT )
00054 FCALLSCFUN2(INT, lcschsetenergy,LCSCHSETENERGY,lcschsetenergy, CFORTRANPNTR, FLOAT )
00055 FCALLSCFUN2(INT, lcschsetposition,LCSCHSETPOSITION,lcschsetposition, CFORTRANPNTR, FLOATV )
00056 FCALLSCFUN5(INT, lcschaddmcparticlecontribution,LCSCHADDMCPARTICLECONTRIBUTION,lcschaddmcparticlecontribution, CFORTRANPNTR, CFORTRANPNTR, FLOAT, FLOAT, INT )
00057
00058 }
00059