LCIO  02.17
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
lcsch.cc
Go to the documentation of this file.
1 #include "CPPFORT/lcsch.h"
2 
3 #include "lcio.h"
5 #include "IMPL/MCParticleImpl.h"
6 
7 
8 using namespace lcio ;
9 
10 
12  SimCalorimeterHitImpl* hit = new SimCalorimeterHitImpl ;
13  return C2F_POINTER( LCObject*, hit ) ;
14 }
15 int lcschdelete( PTRTYPE simcalhit ) {
16  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
17  delete hit ;
18  return LCIO::SUCCESS ;
19 }
20 
21 // get Methods
22 
23 int lcschid( PTRTYPE simcalhit ) {
24  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
25  return hit->id() ;
26 }
27 
28 int lcschgetcellid0( PTRTYPE simcalhit ) {
29  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
30  return hit->getCellID0() ;
31 }
32 int lcschgetcellid1( PTRTYPE simcalhit ) {
33  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
34  return hit->getCellID1() ;
35 }
36 float lcschgetenergy( PTRTYPE simcalhit ) {
37  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
38  return hit->getEnergy() ;
39 }
40 int lcschgetposition( PTRTYPE simcalhit, float *pos) {
41  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
42  for(int i=0;i<3; *pos++ = hit->getPosition()[i++] ) ;
43  return LCIO::SUCCESS ;
44 }
45 int lcschgetnmcparticles( PTRTYPE simcalhit ) {
46  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
47  return hit->getNMCContributions() ;
48 }
49 
51  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
52  return hit->getNMCContributions() ;
53 }
54 
55 PTRTYPE lcschgetparticlecont( PTRTYPE simcalhit, int i) {
56  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
57  return C2F_POINTER( LCObject*, hit->getParticleCont( i-1 ) ) ;
58 }
59 float lcschgetenergycont( PTRTYPE simcalhit, int i) {
60  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
61  return hit->getEnergyCont( i-1 ) ;
62 }
63 float lcschgettimecont( PTRTYPE simcalhit, int i) {
64  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
65  return hit->getTimeCont( i-1 ) ;
66 }
67 int lcschgetpdgcont( PTRTYPE simcalhit, int i) {
68  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
69  return hit->getPDGCont( i-1 ) ;
70 }
71 
72 // set,add Methods
73 
74 int lcschsetcellid0( PTRTYPE simcalhit, int id0) {
75  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
76  hit->setCellID0( id0 ) ;
77  return LCIO::SUCCESS ;
78 }
79 int lcschsetcellid1( PTRTYPE simcalhit, int id1) {
80  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
81  hit->setCellID1( id1 ) ;
82  return LCIO::SUCCESS ;
83 }
84 int lcschsetenergy( PTRTYPE simcalhit, float en) {
85  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
86  hit->setEnergy( en ) ;
87  return LCIO::SUCCESS ;
88 }
89 int lcschsetposition( PTRTYPE simcalhit, float pos[3]) {
90  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
91  hit->setPosition( pos ) ;
92  return LCIO::SUCCESS ;
93 }
94 int lcschaddmcparticlecontribution( PTRTYPE simcalhit, PTRTYPE mcparticle, float en, float t, int pdg ) {
95  SimCalorimeterHitImpl* hit = f2c_pointer<SimCalorimeterHitImpl,LCObject>( simcalhit ) ;
96  MCParticleImpl* mcp = f2c_pointer<MCParticleImpl,LCObject>( mcparticle ) ;
97  hit->addMCParticleContribution( mcp, en, t, pdg ) ;
98  return LCIO::SUCCESS ;
99 }
LCIO_DEPRECATED_CAPI int lcschsetcellid1(PTRTYPE simcalhit, int id1)
Definition: lcsch.cc:79
LCIO_DEPRECATED_CAPI int lcschgetcellid0(PTRTYPE simcalhit)
Definition: lcsch.cc:28
LCIO_DEPRECATED_CAPI int lcschsetcellid0(PTRTYPE simcalhit, int id0)
Definition: lcsch.cc:74
LCIO_DEPRECATED_CAPI int lcschsetenergy(PTRTYPE simcalhit, float en)
Definition: lcsch.cc:84
LCIO_DEPRECATED_CAPI PTRTYPE lcschgetparticlecont(PTRTYPE simcalhit, int i)
Definition: lcsch.cc:55
LCIO_DEPRECATED_CAPI int lcschgetcellid1(PTRTYPE simcalhit)
Definition: lcsch.cc:32
LCIO_DEPRECATED_CAPI float lcschgettimecont(PTRTYPE simcalhit, int i)
Definition: lcsch.cc:63
LCIO_DEPRECATED_CAPI int lcschaddmcparticlecontribution(PTRTYPE simcalhit, PTRTYPE mcparticle, float en, float t, int pdg)
Definition: lcsch.cc:94
LCIO_DEPRECATED_CAPI float lcschgetenergy(PTRTYPE simcalhit)
Definition: lcsch.cc:36
LCIO_DEPRECATED_CAPI int lcschgetnmcparticles(PTRTYPE simcalhit)
Definition: lcsch.cc:45
long PTRTYPE
Fortran interface - define the length of pointers this has to made machine independent ...
Definition: cpointer.h:12
LCIO_DEPRECATED_CAPI int lcschgetpdgcont(PTRTYPE simcalhit, int i)
Definition: lcsch.cc:67
LCIO_DEPRECATED_CAPI float lcschgetenergycont(PTRTYPE simcalhit, int i)
Definition: lcsch.cc:59
LCIO_DEPRECATED_CAPI int lcschid(PTRTYPE simcalhit)
Definition: lcsch.cc:23
LCIO_DEPRECATED_CAPI int lcschsetposition(PTRTYPE simcalhit, float pos[3])
Definition: lcsch.cc:89
LCIO_DEPRECATED_CAPI int lcschdelete(PTRTYPE simcalhit)
Definition: lcsch.cc:15
LCIO_DEPRECATED_CAPI int lcschgetposition(PTRTYPE simcalhit, float *)
Definition: lcsch.cc:40
LCIO_DEPRECATED_CAPI int lcschgetnmccontributions(PTRTYPE simcalhit)
Definition: lcsch.cc:50
#define C2F_POINTER(T, ptr)
Definition: cpointer.h:33
LCIO_DEPRECATED_CAPI PTRTYPE lcschcreate()
Header file for the f77-wrapper functions of the SimCalorimeterHitImpl class.
Definition: lcsch.cc:11