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

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

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

revision 1.6 by pam-fi, Thu Sep 28 14:04:40 2006 UTC revision 1.9 by pam-fi, Mon Oct 16 12:36:52 2006 UTC
# Line 41  c--------------------------------------- Line 41  c---------------------------------------
41  c           ------------------------  c           ------------------------
42  c           GOOD  c           GOOD
43  c           ------------------------  c           ------------------------
44              GOOD1(DSPnumber(iv))=0                  !OK              GOOD1(DSPnumber(iv))=0 !OK
45  c           ------------------------  c           ------------------------
46  c           CRC error  c           CRC error
47  c           ------------------------  c           ------------------------
# Line 112  c     (excluding strips affected by sign Line 112  c     (excluding strips affected by sign
112  c     tagged with the flag CLSTR)  c     tagged with the flag CLSTR)
113  c--------------------------------------------------  c--------------------------------------------------
114        do iv=1,nviews        do iv=1,nviews
115          do ik=1,nva1_view           ima=0
116            cn(iv,ik)  = 0           do ik=1,nva1_view
117            cnn(iv,ik) = -1              cn(iv,ik)  = 0
118            mask_vk_ev(iv,ik)=1              cnn(iv,ik) = -1
119            iflag=0              mask_vk_ev(iv,ik)=1
120            if(mask_vk(iv,ik).eq.1)call cncomp(iv,ik,iflag)              iflag=0
121  c          if(iflag.ne.0)good1=0              if(mask_vk(iv,ik).eq.1)call cncomp(iv,ik,iflag)
122            if(iflag.ne.0)then  c     if(iflag.ne.0)good1=0
123               mask_vk_ev(iv,ik)=0              if(iflag.ne.0)then
124               ierror = 220                 ima=ima+1
125            endif                 mask_vk_ev(iv,ik)=0
126          enddo                 ierror = 220
127    c$$$               if(verbose)
128    c$$$     $              print*,' * WARNING * Event ',eventn(1)
129    c$$$     $              ,': masked vk ',ik,' on view',iv
130                endif
131             enddo
132     100     format(' * WARNING * Event ',i7,' view',i3,': VK MASK ',24i1)
133    c         if(ima.ne.0.and.verbose)print*,' * WARNING * Event ',eventn(1)
134    c     $              ,' view',iv,': VK MASK '
135    c     $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
136             if(ima.ne.0.and.verbose)write(*,100)eventn(1),iv
137         $        ,(mask_vk_ev(iv,ik),ik=1,nva1_view)
138        enddo        enddo
139  c      if(good1.eq.0)then  c      if(good1.eq.0)then
140  c         ierror = 220  c         ierror = 220
# Line 200  C--------------------------------------- Line 211  C---------------------------------------
211        do iv = 1,nviews        do iv = 1,nviews
212           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
213        enddo        enddo
214        if(ngood.ne.0)print*,'* WARNING * LEVEL1 event status: '        if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
215         $     ,':LEVEL1 event status: '
216       $     ,(good1(i),i=1,nviews)       $     ,(good1(i),i=1,nviews)
217  c------------------------------------------------------------------------  c------------------------------------------------------------------------
218  c  c
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23