Commit in lcio/src on v01-07-vtx
cpp/include/CPPFORT/lcvtx.h+1-11.1.2.1 -> 1.1.2.2
cpp/src/CPPFORT/lcvtx.cc+5-51.1.2.1 -> 1.1.2.2
f77/recjob.F+3-11.22.6.1 -> 1.22.6.2
+9-7
3 modified files
lcio/src/cpp/include/CPPFORT
lcvtx.h 1.1.2.1 -> 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- lcvtx.h	29 Aug 2006 15:00:14 -0000	1.1.2.1
+++ lcvtx.h	29 Aug 2006 15:22:18 -0000	1.1.2.2
@@ -45,7 +45,7 @@

 FCALLSCFUN3(INT, lcvtxgetparameters, LCVTXGETPARAMETERS, lcvtxgetparameters, CFORTRANPNTR, FLOATV, INTV)
 FCALLSCFUN1(CFORTRANPNTR, lcvtxgetassociatedparticle,  LCVTXGETASSOCIATEDPARTICLE, lcvtxgetassociatedparticle, CFORTRANPNTR) 
 

-// FCALLSCFUN2(INT, lcvtxsetprimary, LCVTXSETPRIMARY, lcvtxsetprimary, CFORTRANPNTR, LOGICAL) 

+FCALLSCFUN2(INT, lcvtxsetprimary, LCVTXSETPRIMARY, lcvtxsetprimary, CFORTRANPNTR, LOGICAL) 

 FCALLSCFUN2(INT, lcvtxsetchi2, LCVTXSETCHI2, lcvtxsetchi2, CFORTRANPNTR, FLOAT) 
 FCALLSCFUN2(INT, lcvtxsetprobability, LCVTXSETPROBABILITY, lcvtxsetprobability, CFORTRANPNTR, FLOAT) 
 FCALLSCFUN2(INT, lcvtxsetposition, LCVTXSETPOSITION, lcvtxsetposition, CFORTRANPNTR, FLOATV)
lcio/src/cpp/src/CPPFORT
lcvtx.cc 1.1.2.1 -> 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- lcvtx.cc	29 Aug 2006 15:00:15 -0000	1.1.2.1
+++ lcvtx.cc	29 Aug 2006 15:22:18 -0000	1.1.2.2
@@ -79,11 +79,11 @@

 
 // set,add Methods
 

-// int lcvtxsetprimary( PTRTYPE vertex, bool pri ) {
-//   VertexImpl* vtx = f2c_pointer<VertexImpl,LCObject>( vertex ) ;
-//   vtx->setPrimary( pri ) ;
-//   return LCIO::SUCCESS ;
-// }

+int lcvtxsetprimary( PTRTYPE vertex, bool pri ) {
+  VertexImpl* vtx = f2c_pointer<VertexImpl,LCObject>( vertex ) ;
+  vtx->setPrimary( pri ) ;
+  return LCIO::SUCCESS ;
+}

 
 int lcvtxsetchi2( PTRTYPE vertex, float chi2 ) {
   VertexImpl* vtx = f2c_pointer<VertexImpl,LCObject>( vertex ) ;
lcio/src/f77
recjob.F 1.22.6.1 -> 1.22.6.2
diff -u -r1.22.6.1 -r1.22.6.2
--- recjob.F	29 Aug 2006 15:00:23 -0000	1.22.6.1
+++ recjob.F	29 Aug 2006 15:22:18 -0000	1.22.6.2
@@ -588,7 +588,9 @@

       vtxcol = lccolcreate (  LCIO_VERTEX )
       do  i = 1, nvtx
         vtx  =  lcvtxcreate ()

-c        status   =  lcvtxsetprimary ( vtxv, .true. )

+        if ( i .eq. 1 )  then
+          status   =  lcvtxsetprimary ( vtx, .true. )
+        end if

         status   =  lcvtxsetchi2 ( vtx, (i-1)*101.101 )
         status   =  lcvtxsetprobability ( vtx, 0.511*(i-1) )
         do  j = 1, 6
CVSspam 0.2.8