lcio/src/cpp/include/CPPFORT

diff -u -r1.3 -r1.4
--- lcsth.h	19 Sep 2005 15:40:26 -0000	1.3
+++ lcsth.h	24 Mar 2006 13:36:43 -0000	1.4
@@ -15,6 +15,7 @@

 int lcsthgetcellid( PTRTYPE hit )  ;
 double lcsthgetposition( PTRTYPE hit, int index )  ;
 float lcsthgetmomentum( PTRTYPE hit, int index )  ;

+float lcsthgetpathlength ( PTRTYPE hit )  ;

 float lcsthgetdedx( PTRTYPE hit )  ;
 float lcsthgettime( PTRTYPE hit )  ;
 

@@ -23,6 +24,8 @@

 int lcsthsetcellid( PTRTYPE hit, int id ) ;
 int lcsthsetposition( PTRTYPE hit, double pos[3] )  ;
 int lcsthsetmomentum( PTRTYPE hit, float pos[3] )  ;

+int lcsthsetmomentumxyz( PTRTYPE hit, float px, float py, float pz ) ;
+int lcsthsetpathlength( PTRTYPE hit, float pathLength ) ;

 int lcsthsetdedx( PTRTYPE hit, float dEdX )  ;
 int lcsthsettime( PTRTYPE hit, float t )  ;
 int lcsthsetmcparticle( PTRTYPE hit,  PTRTYPE  particle )  ;

@@ -36,6 +39,7 @@

 FCALLSCFUN1(INT, lcsthgetcellid,LCSTHGETCELLID,lcsthgetcellid,CFORTRANPNTR) 
 FCALLSCFUN2(DOUBLE, lcsthgetposition, LCSTHGETPOSITION, lcsthgetposition, CFORTRANPNTR,  INT ) 
 FCALLSCFUN2(FLOAT, lcsthgetmomentum, LCSTHGETMOMENTUM, lcsthgetmomentum, CFORTRANPNTR,  INT ) 

+FCALLSCFUN1(FLOAT, lcsthgetpathlength,LCSTHGETPATHLENGTH,lcsthgetpathlength,CFORTRANPNTR)

 FCALLSCFUN1(FLOAT, lcsthgetdedx,LCSTHGETDEDX,lcsthgetdedx,CFORTRANPNTR) 
 FCALLSCFUN1(FLOAT, lcsthgettime,LCSTHGETTIME,lcsthgettime,CFORTRANPNTR) 
 

@@ -44,6 +48,9 @@

 FCALLSCFUN2(INT, lcsthsetcellid, LCSTHSETCELLID, lcsthsetcellid, CFORTRANPNTR, INT ) 
 FCALLSCFUN2(INT, lcsthsetposition, LCSTHSETPOSITION, lcsthsetposition, CFORTRANPNTR, DOUBLEV ) 
 FCALLSCFUN2(INT, lcsthsetmomentum, LCSTHSETMOMENTUM, lcsthsetmomentum, CFORTRANPNTR, FLOATV ) 

+FCALLSCFUN4(INT, lcsthsetmomentumxyz, LCSTHSETMOMENTUMXYZ, lcsthsetmomentumxyz, CFORTRANPNTR,
+            FLOAT, FLOAT, FLOAT )
+FCALLSCFUN2(INT, lcsthsetpathlength, LCSTHSETPATHLENGTH, lcsthsetpathlength, CFORTRANPNTR, FLOAT )

 FCALLSCFUN2(INT, lcsthsetdedx, LCSTHSETDEDX, lcsthsetdedx, CFORTRANPNTR, FLOAT ) 
 FCALLSCFUN2(INT, lcsthsettime, LCSTHSETTIME, lcsthsettime, CFORTRANPNTR, FLOAT ) 
 FCALLSCFUN2(INT, lcsthsetmcparticle, LCSTHSETMCPARTICLE, lcsthsetmcparticle, CFORTRANPNTR, CFORTRANPNTR ) 

lcio/src/cpp/src/CPPFORT

diff -u -r1.2 -r1.3
--- lcsth.cc	19 Sep 2005 15:40:27 -0000	1.2
+++ lcsth.cc	24 Mar 2006 13:36:43 -0000	1.3
@@ -37,6 +37,11 @@

   return sth->getMomentum()[index] ;
 }
 

+float lcsthgetpathlength( PTRTYPE hit ){
+  SimTrackerHitImpl* sth = f2c_pointer<SimTrackerHitImpl,LCObject>( hit ) ;
+  return sth->getPathLength() ;
+}
+

 float lcsthgetdedx( PTRTYPE hit ){
   SimTrackerHitImpl* sth = f2c_pointer<SimTrackerHitImpl,LCObject>( hit ) ;
   return sth->getdEdx() ;

@@ -69,6 +74,18 @@

   return LCIO::SUCCESS ;
 }
 

+int lcsthsetmomentumxyz( PTRTYPE hit, float px, float py, float pz ){
+  SimTrackerHitImpl* sth = f2c_pointer<SimTrackerHitImpl,LCObject>( hit ) ;
+  sth->setMomentum( px, py, pz ) ;
+  return LCIO::SUCCESS ;
+}
+
+int lcsthsetpathlength(PTRTYPE hit, float pathLength) {
+  SimTrackerHitImpl* sth = f2c_pointer<SimTrackerHitImpl,LCObject>( hit ) ;
+  sth->setPathLength( pathLength ) ;
+  return LCIO::SUCCESS ;
+}
+

 int lcsthsetdedx( PTRTYPE hit, float dEdX ){
   SimTrackerHitImpl* sth = f2c_pointer<SimTrackerHitImpl,LCObject>( hit ) ;
   sth->setdEdx( dEdX ) ;

lcio/src/f77

diff -u -r1.35 -r1.36
--- lciof77api.inc	22 Mar 2006 16:42:38 -0000	1.35
+++ lciof77api.inc	24 Mar 2006 13:36:44 -0000	1.36
@@ -12,7 +12,7 @@

 *  H. Vogt
 *  05/06/2004  (reconstruction part added)
 *

-*  $Id: lciof77api.inc,v 1.35 2006/03/22 16:42:38 hvogt Exp $

+*  $Id: lciof77api.inc,v 1.36 2006/03/24 13:36:44 hvogt Exp $

 ***************************************************
 
 #include "lciof77pointer.inc"

@@ -129,9 +129,10 @@

       integer lcsthdelete, lcsthgetcellid
       real    lcsthgetdedx, lcsthgettime
       double precision lcsthgetposition

-      real lcsthgetmomentum

+      real lcsthgetmomentum, lcsthgetpathlength

       integer lcsthsetcellid, lcsthsetposition, lcsthsetdedx   
       integer lcsthsettime, lcsthsetmcparticle, lcsthsetmomentum

+      integer lcsthsetmomentumxyz, lcsthsetpathlength

 
 c-----the TPCHitImpl interface
       PTRTYPE lctphcreate

lcio/src/latex/manual

diff -u -r1.18 -r1.19
--- f77summary.tex	22 Mar 2006 16:42:38 -0000	1.18
+++ f77summary.tex	24 Mar 2006 13:36:44 -0000	1.19
@@ -169,10 +169,13 @@

 setTime                -> status  = lcsthsettime( pthit , ftime )
 setMCParticle          -> status  = lcsthsetmcparticle( pthit , pmcp )
 setMomentum            -> status  = lcsthsetmomentum( pthit , fpv )

+setMomentumXYZ         -> status  = lcsthsetmomentumxyz( pthit , px, py, pz )
+setPathLength          -> status  = lcsthsetpathlength( pthit , pathl )

 
 getCellID              -> icellid = lcsthgetcellid( pthit )
 getPosition            -> dposv(i)= lcsthgetposition( pthit , i ) (i=1,2,3)
 getMomentum            -> fpv(i)  = lcsthgetmomentum( pthit , i ) (i=1,2,3)

+getPathLength          -> pathl   = lcsthgetpathlength ( pthit )

 getdEdx                -> fdedx   = lcsthgetdedx( pthit )
 getTime                -> ftime   = lcsthgettime( pthit )
 getMCParticle          -> pmcp    = lcsthgetmcparticle( pthit )