/[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 2.1 by kusanagi, Fri Dec 17 12:46:23 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 95  c      subroutine trk_calib_pkt(runerror Line 95  c      subroutine trk_calib_pkt(runerror
95        integer ffd_pkt           !pkt file descriptor        integer ffd_pkt           !pkt file descriptor
96                                  !(file temporaneo)                                      !(file temporaneo)    
97        character*60 event_file_name !nome file        character*60 event_file_name !nome file
98          integer lun_pkt
99          parameter (lun_pkt=10)
100        open(unit=lun_pkt,        open(unit=lun_pkt,
101       $     name=EVENT_FILE_NAME(1:lnblnk(EVENT_FILE_NAME)),       $     name=EVENT_FILE_NAME(1:lnblnk(EVENT_FILE_NAME)),
102       $     status='old',       $     status='old',
# Line 109  c      subroutine trk_calib_pkt(runerror Line 110  c      subroutine trk_calib_pkt(runerror
110  c         if(runerror.eq.-1) goto 24  c         if(runerror.eq.-1) goto 24
111           if(runerror.eq.-1) goto 2222           if(runerror.eq.-1) goto 2222
112           if(runerror.eq.1) then                             if(runerror.eq.1) then                  
113              print*,' '  c            print*,' '
114              print*,'readraw: END OF CPU PACKET '  c            print*,'readraw: END OF CPU PACKET '
115              print*,'______________________________________ '  c            print*,'______________________________________ '
116              goto 2222           !end loop on views (DSP pkt)              goto 2222           !end loop on views (DSP pkt)
117           endif           endif
118           if(checkheader.ne.3) then           if(checkheader.ne.3) then
Legend:
Removed from v.1.3  
changed lines
  Added in v.2.1
  ViewVC Help
Powered by ViewVC 1.1.23