LCIO  02.17
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
lctph.cc
Go to the documentation of this file.
1 #include "CPPFORT/lctph.h"
2 
3 #include "lcio.h"
4 #include "IMPL/TPCHitImpl.h"
5 
6 using namespace lcio ;
7 
9  TPCHitImpl* hit = new TPCHitImpl ;
10  return C2F_POINTER( LCObject*, hit ) ;
11 }
12 
13 int lctphdelete( PTRTYPE hit ){
14  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
15  delete tph ;
16  return LCIO::SUCCESS ;
17 }
18 
19 int lctphid( PTRTYPE hit ) {
20  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
21  return tph->id() ;
22 }
23 
25  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
26  return tph->getCellID() ;
27 }
28 float lctphgettime( PTRTYPE hit ){
29  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
30  return tph->getTime() ;
31 }
32 
33 float lctphgcharge( PTRTYPE hit ){
34  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
35  return tph->getCharge() ;
36 }
38  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
39  return tph->getQuality() ;
40 }
41 
43  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
44  return tph->getNRawDataWords() ;
45 }
46 int lctphgetrawdataword( PTRTYPE hit, int i) {
47  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
48  return tph->getRawDataWord( i-1 ) ;
49 }
50 
51 
52 int lctphsetcellid( PTRTYPE hit, int id ){
53  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
54  tph->setCellID( id ) ;
55  return LCIO::SUCCESS ;
56 }
57 int lctphsettime( PTRTYPE hit, float t ){
58  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
59  tph->setTime( t ) ;
60  return LCIO::SUCCESS ;
61 }
62 int lctphsetcharge( PTRTYPE hit, float c ){
63  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
64  tph->setCharge( c ) ;
65  return LCIO::SUCCESS ;
66 }
67 int lctphsetquality( PTRTYPE hit, int q ){
68  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
69  tph->setQuality( q ) ;
70  return LCIO::SUCCESS ;
71 }
72 int lctphsetrawdata( PTRTYPE hit, int* rawData, int size ){
73  TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
74  tph->setRawData( rawData, size ) ;
75  return LCIO::SUCCESS ;
76 }
77 // int lctphinitrawdataarray( PTRTYPE hit, int size ){
78 // TPCHitImpl* tph = f2c_pointer<TPCHitImpl,LCObject>( hit ) ;
79 // tph->initRawDataArray( size ) ;
80 // return LCIO::SUCCESS ;
81 // }
82 
83 
84 
85 
LCIO_DEPRECATED_CAPI int lctphsetquality(PTRTYPE hit, int q)
Definition: lctph.cc:67
LCIO_DEPRECATED_CAPI int lctphsetcellid(PTRTYPE hit, int id)
Definition: lctph.cc:52
LCIO_DEPRECATED_CAPI int lctphid(PTRTYPE hit)
Definition: lctph.cc:19
LCIO_DEPRECATED_CAPI int lctphgetnrawdatawords(PTRTYPE hit)
Definition: lctph.cc:42
LCIO_DEPRECATED_CAPI PTRTYPE lctphcreate()
Header file for the f77-wrapper functions of the TPCHitImpl class.
Definition: lctph.cc:8
LCIO_DEPRECATED_CAPI int lctphgetquality(PTRTYPE hit)
Definition: lctph.cc:37
LCIO_DEPRECATED_CAPI int lctphgetcellid(PTRTYPE hit)
Definition: lctph.cc:24
long PTRTYPE
Fortran interface - define the length of pointers this has to made machine independent ...
Definition: cpointer.h:12
LCIO_DEPRECATED_CAPI int lctphdelete(PTRTYPE hit)
Definition: lctph.cc:13
LCIO_DEPRECATED_CAPI float lctphgcharge(PTRTYPE hit)
Definition: lctph.cc:33
LCIO_DEPRECATED_CAPI float lctphgettime(PTRTYPE hit)
Definition: lctph.cc:28
LCIO_DEPRECATED_CAPI int lctphsettime(PTRTYPE hit, float t)
Definition: lctph.cc:57
LCIO_DEPRECATED_CAPI int lctphgetrawdataword(PTRTYPE hit, int i)
Definition: lctph.cc:46
LCIO_DEPRECATED_CAPI int lctphsetcharge(PTRTYPE hit, float c)
Definition: lctph.cc:62
LCIO_DEPRECATED_CAPI int lctphsetrawdata(PTRTYPE hit, int *rawData, int size)
Definition: lctph.cc:72
#define C2F_POINTER(T, ptr)
Definition: cpointer.h:33