/[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 1.3 by kusanagi, Thu Aug 19 15:24:51 2004 UTC revision 1.4 by kusanagi, Fri Aug 20 15:01:49 2004 UTC
# Line 31  c      print*,'  lun_pkt-----',int(lun_p Line 31  c      print*,'  lun_pkt-----',int(lun_p
31  c         if(runerror.eq.-1) goto 24  c         if(runerror.eq.-1) goto 24
32           if(runerror.eq.-1) goto 2222           if(runerror.eq.-1) goto 2222
33           if(runerror.eq.1) then                             if(runerror.eq.1) then                  
34              print*,' '  c            print*,' '
35              print*,'readraw: END OF CPU PACKET '  c            print*,'readraw: END OF CPU PACKET '
36              print*,'______________________________________ '  c            print*,'______________________________________ '
37  c     goto 9900  !end loop on files  c     goto 9900  !end loop on files
38  c            goto 8800           !end loop on views (DSP pkt)  c            goto 8800           !end loop on views (DSP pkt)
39              goto 2222              goto 2222
# Line 109  c      subroutine trk_calib_pkt(runerror Line 109  c      subroutine trk_calib_pkt(runerror
109  c         if(runerror.eq.-1) goto 24  c         if(runerror.eq.-1) goto 24
110           if(runerror.eq.-1) goto 2222           if(runerror.eq.-1) goto 2222
111           if(runerror.eq.1) then                             if(runerror.eq.1) then                  
112              print*,' '  c            print*,' '
113              print*,'readraw: END OF CPU PACKET '  c            print*,'readraw: END OF CPU PACKET '
114              print*,'______________________________________ '  c            print*,'______________________________________ '
115              goto 2222           !end loop on views (DSP pkt)              goto 2222           !end loop on views (DSP pkt)
116           endif           endif
117           if(checkheader.ne.3) then           if(checkheader.ne.3) then
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23