/[PAMELA software]/yoda/techmodel/forroutines/tracker/readraw/trkunpack.f
ViewVC logotype

Diff of /yoda/techmodel/forroutines/tracker/readraw/trkunpack.f

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

revision 2.2 by kusanagi, Mon Jan 3 14:20:12 2005 UTC revision 2.3 by kusanagi, Wed Feb 9 22:22:23 2005 UTC
# Line 554  c$$$      enddo Line 554  c$$$      enddo
554        bid_dat = bid_dat_sum/7        bid_dat = bid_dat_sum/7
555    
556        if (bid_dat.ne.1.and.bid_dat.ne.2) then        if (bid_dat.ne.1.and.bid_dat.ne.2) then
557        write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c      write(*,*) '*** *** *** *** *** *** *** *** *** ***'
558        write (*,*) 'unpack_data: TRAILER PACKET CORRUPTED - BID '  c      write (*,*) 'unpack_data: TRAILER PACKET CORRUPTED - BID '
559       $     ,bid_dat  c     $     ,bid_dat
560        write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c      write(*,*) '*** *** *** *** *** *** *** *** *** ***'
561        endif        endif
562        if (mod(bid_dat_sum,7).ne.0) then        if (mod(bid_dat_sum,7).ne.0) then
563           bid_dat = 0           bid_dat = 0
564           write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'
565           write (*,*) 'unpack_data: TRAILER PACKET CORRUPTED - BID '  c         write (*,*) 'unpack_data: TRAILER PACKET CORRUPTED - BID '
566       $        ,bid_dat  c     $        ,bid_dat
567           write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'
568        endif        endif
569                
570        if (alarm_dat.eq.3) then        if (alarm_dat.eq.3) then
571           write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'
572           write(*,*) 'unpack_data: AQUISITION ALARM'  c         write(*,*) 'unpack_data: AQUISITION ALARM'
573           write(*,*) '*** *** *** *** *** *** *** *** *** ***'          c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'        
574    
575        endif        endif
576                
577           if (alarm_dat.ne.3.and.alarm_dat.ne.0) then           if (alarm_dat.ne.3.and.alarm_dat.ne.0) then
578           write(*,*) '*** *** *** *** *** *** *** *** *** ***'  c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'
579           write(*,*) 'unpack_data: TRAILER PACKET CORRUPTED - ALARM '  c         write(*,*) 'unpack_data: TRAILER PACKET CORRUPTED - ALARM '
580       $        ,alarm_dat  c     $        ,alarm_dat
581           write(*,*) '*** *** *** *** *** *** *** *** *** ***'          c         write(*,*) '*** *** *** *** *** *** *** *** *** ***'        
582    
583        endif        endif
584    
Legend:
Removed from v.2.2  
changed lines
  Added in v.2.3
  ViewVC Help
Powered by ViewVC 1.1.23