/[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.7 by pam-fi, Fri Sep 29 08:13:04 2006 UTC
# Line 122  c          if(iflag.ne.0)good1=0 Line 122  c          if(iflag.ne.0)good1=0
122            if(iflag.ne.0)then            if(iflag.ne.0)then
123               mask_vk_ev(iv,ik)=0               mask_vk_ev(iv,ik)=0
124               ierror = 220               ierror = 220
125                 if(verbose)
126         $            print*,' * WARNING * Event ',eventn(1)
127         $            ,': masked vk ',ik,' on view',iv
128            endif            endif
129          enddo          enddo
130        enddo        enddo
# Line 200  C--------------------------------------- Line 203  C---------------------------------------
203        do iv = 1,nviews        do iv = 1,nviews
204           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
205        enddo        enddo
206        if(ngood.ne.0)print*,'* WARNING * LEVEL1 event status: '        if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1)
207         $     ,':LEVEL1 event status: '
208       $     ,(good1(i),i=1,nviews)       $     ,(good1(i),i=1,nviews)
209  c------------------------------------------------------------------------  c------------------------------------------------------------------------
210  c  c
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23