00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012 PTRTYPE lctphcreate() ;
00013 int lctphdelete( PTRTYPE hit ) ;
00014
00015 int lctphid( PTRTYPE hit ) ;
00016 int lctphgetcellid( PTRTYPE hit ) ;
00017 float lctphgettime( PTRTYPE hit ) ;
00018 float lctphgcharge( PTRTYPE hit ) ;
00019 int lctphgetquality( PTRTYPE hit ) ;
00020
00021 int lctphgetnrawdatawords( PTRTYPE hit ) ;
00022 int lctphgetrawdataword( PTRTYPE hit, int i) ;
00023
00024 int lctphsetcellid( PTRTYPE hit, int id ) ;
00025 int lctphsettime( PTRTYPE hit, float t );
00026 int lctphsetcharge( PTRTYPE hit, float c );
00027 int lctphsetquality( PTRTYPE hit, int q );
00028 int lctphsetrawdata( PTRTYPE hit, int* rawData, int size ) ;
00029
00030
00031
00032 extern "C"{
00033
00034 FCALLSCFUN0(CFORTRANPNTR, lctphcreate, LCTPHCREATE, lctphcreate )
00035 FCALLSCFUN1(INT, lctphdelete, LCTPHDELETE, lctphdelete, CFORTRANPNTR )
00036
00037 FCALLSCFUN1(INT, lctphid, LCTPHID, lctphdid, CFORTRANPNTR )
00038 FCALLSCFUN1(INT, lctphgetcellid,LCTPHGETCELLID,lctphgetcellid,CFORTRANPNTR)
00039 FCALLSCFUN1(FLOAT, lctphgettime,LCTPHGETTIME,lctphgettime,CFORTRANPNTR)
00040 FCALLSCFUN1(FLOAT, lctphgcharge,LCTPHGCHARGE,lctphgcharge,CFORTRANPNTR)
00041 FCALLSCFUN1(INT, lctphgetquality,LCTPHGETQUALITY,lctphgetquality,CFORTRANPNTR)
00042
00043 FCALLSCFUN1(INT, lctphgetnrawdatawords,LCTPHGETNRAWDATAWORDS,lctphgetnrawdatawords,CFORTRANPNTR)
00044 FCALLSCFUN2(INT, lctphgetrawdataword,LCTPHGETRAWDATAWORD,lctphgetrawdataword,CFORTRANPNTR,INT)
00045
00046 FCALLSCFUN2(INT, lctphsetcellid, LCTPHSETCELLID, lctphsetcellid, CFORTRANPNTR, INT )
00047 FCALLSCFUN2(INT, lctphsettime, LCTPHSETTIME, lctphsettime, CFORTRANPNTR, FLOAT )
00048 FCALLSCFUN2(INT, lctphsetcharge, LCTPHSETCHARGE, lctphsetcharge, CFORTRANPNTR, FLOAT )
00049 FCALLSCFUN2(INT, lctphsetquality, LCTPHSETQUALITY, lctphsetquality, CFORTRANPNTR, INT )
00050 FCALLSCFUN3(INT, lctphsetrawdata, LCTPHSETRAWDATA, lctphsetrawdata, CFORTRANPNTR, INTV, INT )
00051
00052
00053 }
00054