lcio/src/f77
diff -u -r1.36 -r1.37
--- lciof77api.inc 24 Mar 2006 13:36:44 -0000 1.36
+++ lciof77api.inc 24 Mar 2006 14:05:43 -0000 1.37
@@ -12,7 +12,7 @@
* H. Vogt
* 05/06/2004 (reconstruction part added)
*
-* $Id: lciof77api.inc,v 1.36 2006/03/24 13:36:44 hvogt Exp $
+* $Id: lciof77api.inc,v 1.37 2006/03/24 14:05:43 gaede Exp $
***************************************************
#include "lciof77pointer.inc"
@@ -249,6 +249,7 @@
integer LCIO_RCHBIT_NO_PTR
integer LCIO_RCHBIT_TIME
integer LCIO_THBIT_BARREL
+ integer LCIO_THBIT_MOMENTUM
integer LCIO_TRBIT_HITS
integer LCIO_CLBIT_HITS
integer LCIO_TPCBIT_RAW
@@ -267,6 +268,7 @@
parameter (LCIO_RCHBIT_LONG=31, LCIO_RCHBIT_BARREL=30,
& LCIO_RCHBIT_ID1=29, LCIO_RCHBIT_NO_PTR=28)
parameter (LCIO_THBIT_BARREL=31)
+ parameter (LCIO_THBIT_MOMENTUM=30)
parameter (LCIO_TRBIT_HITS=31)
parameter (LCIO_CLBIT_HITS=31)
parameter (LCIO_TPCBIT_RAW=31, LCIO_TPCBIT_NO_PTR=30)
lcio/src/f77
diff -u -r1.10 -r1.11
--- simjob.F 21 Sep 2004 15:44:50 -0000 1.10
+++ simjob.F 24 Mar 2006 14:05:43 -0000 1.11
@@ -230,6 +230,12 @@
trkVec = lccolcreate( LCIO_SIMTRACKERHIT )
extFVec = lccolcreate( LCIO_LCFLOATVEC )
extIVec = lccolcreate( LCIO_LCINTVEC )
+
+
+ flag = 0
+ flag = ibset( flag, LCIO_THBIT_MOMENTUM )
+ status = lccolsetflag( trkVec, flag )
+
do j = 1,nhits
hit = lcsthcreate()
status = lcsthsetdedx( hit, 30.e-9 )
@@ -237,6 +243,8 @@
sthpos(2) = 2.2*irand( 0 )/RAND_MAX
sthpos(3) = 3.3*irand( 0 )/RAND_MAX
status = lcsthsetposition( hit, sthpos )
+ status = lcsthsetmomentumxyz( hit, 1., 2., 3. )
+ status = lcsthsetpathlength( hit, .042 )
c-------- assign the hits randomly to MC particles
rn = .99999*irand( 0 )/RAND_MAX