00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013 PTRTYPE lccahcreate() ;
00014 int lccahdelete( PTRTYPE calhit ) ;
00015 int lccahid( PTRTYPE calhit ) ;
00016
00017 int lccahgetcellid0( PTRTYPE calhit ) ;
00018 int lccahgetcellid1( PTRTYPE calhit ) ;
00019 float lccahgetenergy( PTRTYPE calhit ) ;
00020 float lccahgetenergyerr( PTRTYPE calhit ) ;
00021 float lccahgettime( PTRTYPE calhit ) ;
00022 int lccahgetposition( PTRTYPE calhit, float * ) ;
00023 int lccahgettype( PTRTYPE calhit ) ;
00024 PTRTYPE lccahgetrawhit( PTRTYPE calhit ) ;
00025
00026 int lccahsetcellid0( PTRTYPE calhit, int id0) ;
00027 int lccahsetcellid1( PTRTYPE calhit, int id1) ;
00028 int lccahsetenergy( PTRTYPE calhit, float en) ;
00029 int lccahsetenergyerr( PTRTYPE calhit, float enerr) ;
00030 int lccahsettime( PTRTYPE calhit, float time) ;
00031 int lccahsetposition( PTRTYPE calhit, float pos[3]) ;
00032 int lccahsettype( PTRTYPE calhit, int type ) ;
00033 int lccahsetrawhit( PTRTYPE calhit, PTRTYPE rawHit ) ;
00034
00035
00036 extern "C"{
00037 FCALLSCFUN0(CFORTRANPNTR, lccahcreate,LCCAHCREATE, lccahcreate )
00038 FCALLSCFUN1(INT, lccahdelete, LCCAHDELETE, lccahdelete, CFORTRANPNTR )
00039 FCALLSCFUN1(INT, lccahid, LCCAHID, lccahid, CFORTRANPNTR )
00040
00041 FCALLSCFUN1(INT, lccahgetcellid0, LCCAHGETCELLID0, lccahgetcellid0, CFORTRANPNTR )
00042 FCALLSCFUN1(INT, lccahgetcellid1, LCCAHGETCELLID1, lccahgetcellid1, CFORTRANPNTR )
00043 FCALLSCFUN1(FLOAT, lccahgetenergy, LCCAHGETENERGY, lccahgetenergy, CFORTRANPNTR )
00044 FCALLSCFUN1(FLOAT, lccahgetenergyerr, LCCAHGETENERGYERR, lccahgetenergyerr, CFORTRANPNTR )
00045 FCALLSCFUN1(FLOAT, lccahgettime, LCCAHGETTIME, lccahgettime, CFORTRANPNTR )
00046 FCALLSCFUN2(INT, lccahgetposition,LCCAHGETPOSITION,lccahgetposition, CFORTRANPNTR, FLOATV )
00047 FCALLSCFUN1(INT, lccahgettype, LCCAHGETTYPE, lccahgettype, CFORTRANPNTR )
00048
00049 FCALLSCFUN1(CFORTRANPNTR, lccahgetrawhit, LCCAHGETRAWHIT, lccahgetrawhit, CFORTRANPNTR )
00050
00051 FCALLSCFUN2(INT, lccahsetcellid0,LCCAHSETCELLID0,lccahsetcellid0, CFORTRANPNTR, INT )
00052 FCALLSCFUN2(INT, lccahsetcellid1,LCCAHSETCELLID1,lccahsetcellid1, CFORTRANPNTR, INT )
00053 FCALLSCFUN2(INT, lccahsetenergy,LCCAHSETENERGY,lccahsetenergy, CFORTRANPNTR, FLOAT )
00054 FCALLSCFUN2(INT, lccahsetenergyerr,LCCAHSETENERGYERR,lccahsetenergyerr, CFORTRANPNTR, FLOAT )
00055 FCALLSCFUN2(INT, lccahsettime,LCCAHSETTIME,lccahsettime, CFORTRANPNTR, FLOAT )
00056 FCALLSCFUN2(INT, lccahsetposition,LCCAHSETPOSITION,lccahsetposition, CFORTRANPNTR, FLOATV )
00057 FCALLSCFUN2(INT, lccahsettype, LCCAHSETTYPE, lccahsettype, CFORTRANPNTR, INT )
00058 FCALLSCFUN2(INT, lccahsetrawhit, LCCAHSETRAWHIT, lccahsetrawhit, CFORTRANPNTR, INT )
00059 }
00060