/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/analysissubroutines.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/analysissubroutines.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by pam-fi, Mon Dec 14 10:51:40 2009 UTC revision 1.44 by pamelats, Wed Dec 30 14:22:23 2009 UTC
# Line 3903  C     dal fit risultano ancora inclusi.. Line 3903  C     dal fit risultano ancora inclusi..
3903  C  C
3904           cltrx(ip,ntr)   = 0           cltrx(ip,ntr)   = 0
3905           cltry(ip,ntr)   = 0           cltry(ip,ntr)   = 0
3906           if(  c$$$         if(
3907       $        xgood_nt(ip,ntr).eq.1.and.ygood_nt(ip,ntr).eq.1  c$$$     $        xgood_nt(ip,ntr).eq.1.and.ygood_nt(ip,ntr).eq.1
3908       $        .and.  c$$$     $        .and.
3909       $        id.ne.0)then  c$$$     $        id.ne.0)then
3910             if(id.ne.0)then        !patch 30/12/09
3911    
3912  c           >>> is a couple  c           >>> is a couple
3913              cltrx(ip,ntr)   = clx(nplanes-ip+1,icp_cp(id))              cltrx(ip,ntr)   = clx(nplanes-ip+1,icp_cp(id))
# Line 3946  c           >>> is a couple Line 3947  c           >>> is a couple
3947                 ypu(ip,ntr)      = corr                 ypu(ip,ntr)      = corr
3948              endif              endif
3949    
3950           elseif(icl.ne.0)then  c$$$         elseif(icl.ne.0)then
3951             endif                  !patch 30/12/09
3952             if(icl.ne.0)then       !patch 30/12/09
3953    
3954              cl_used(icl) = 1    !tag used clusters                        cl_used(icl) = 1    !tag used clusters          
3955    
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.23