/[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.8 by pam-fi, Fri Sep 29 08:45:16 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 129  c$$$     $              print*,' * WARNI Line 129  c$$$     $              print*,' * WARNI
129  c$$$     $              ,': masked vk ',ik,' on view',iv  c$$$     $              ,': masked vk ',ik,' on view',iv
130              endif              endif
131           enddo           enddo
132           if(ima.ne.0.and.verbose)print*,' * WARNING * Event ',eventn(1)   100     format(' * WARNING * Event ',i7,' view',i3,': VK MASK ',24i1)
133       $              ,' view',iv,': VK MASK '  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)       $        ,(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
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23