--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2009/12/14 10:51:40 1.43 +++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2009/12/30 14:22:23 1.44 @@ -3903,10 +3903,11 @@ C cltrx(ip,ntr) = 0 cltry(ip,ntr) = 0 - if( - $ xgood_nt(ip,ntr).eq.1.and.ygood_nt(ip,ntr).eq.1 - $ .and. - $ id.ne.0)then +c$$$ if( +c$$$ $ xgood_nt(ip,ntr).eq.1.and.ygood_nt(ip,ntr).eq.1 +c$$$ $ .and. +c$$$ $ id.ne.0)then + if(id.ne.0)then !patch 30/12/09 c >>> is a couple cltrx(ip,ntr) = clx(nplanes-ip+1,icp_cp(id)) @@ -3946,7 +3947,9 @@ ypu(ip,ntr) = corr endif - elseif(icl.ne.0)then +c$$$ elseif(icl.ne.0)then + endif !patch 30/12/09 + if(icl.ne.0)then !patch 30/12/09 cl_used(icl) = 1 !tag used clusters