--- DarthVader/TrackerLevel2/src/F77/reductionflight.f 2006/09/28 14:04:40 1.6 +++ DarthVader/TrackerLevel2/src/F77/reductionflight.f 2006/09/29 08:13:04 1.7 @@ -122,6 +122,9 @@ if(iflag.ne.0)then mask_vk_ev(iv,ik)=0 ierror = 220 + if(verbose) + $ print*,' * WARNING * Event ',eventn(1) + $ ,': masked vk ',ik,' on view',iv endif enddo enddo @@ -200,7 +203,8 @@ do iv = 1,nviews ngood = ngood + good1(iv) enddo - if(ngood.ne.0)print*,'* WARNING * LEVEL1 event status: ' + if(ngood.ne.0)print*,'* WARNING * Event ',eventn(1) + $ ,':LEVEL1 event status: ' $ ,(good1(i),i=1,nviews) c------------------------------------------------------------------------ c