/[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 6.4 by kusanagi, Tue Jun 27 10:25:42 2006 UTC revision 6.5 by mocchiut, Fri Oct 20 11:07:44 2006 UTC
# Line 37  Line 37 
37    
38  *     ===================================  *     ===================================
39        if(length_buffer.gt.MAXBUFFLEN)then        if(length_buffer.gt.MAXBUFFLEN)then
40           print*,'trkeventpkt: buffer() size must be at least '  c         print*,'trkeventpkt: buffer() size must be at least '
41       $        ,length_buffer,' !!!!'  c     $        ,length_buffer,' !!!!'
42           goto 2222           goto 2222
43        endif        endif
44  *     ===================================  *     ===================================
# Line 143  Line 143 
143    
144  *     ===================================  *     ===================================
145        if(length_buffer.gt.MAXBUFFLEN)then        if(length_buffer.gt.MAXBUFFLEN)then
146           print*,'trkeventpkt: buffer() size must be at least '  c         print*,'trkeventpkt: buffer() size must be at least '
147       $        ,length_buffer,' !!!!'  c     $        ,length_buffer,' !!!!'
148           goto 2222           goto 2222
149        endif        endif
150  *     ===================================  *     ===================================
# Line 500  c     hence the XOR between the two half Line 500  c     hence the XOR between the two half
500  C----------------------------------------------------------  C----------------------------------------------------------
501        runerror=0        runerror=0
502        nqualcosa=0        nqualcosa=0
503        if(l_tra.eq.0)then  c      if(l_tra.eq.0)then
504          if(l_tra.le.0)then
505           goto 18                !empty buffer           goto 18                !empty buffer
506        endif        endif
507                
508        if(l_tra.gt.MAXBUFFLEN .or.(curpos+l_tra-1).ge.MAXBUFFLEN )then        if(l_tra.gt.MAXBUFFLEN .or.(curpos+l_tra-1).ge.MAXBUFFLEN )then
509           print*,'unpackdata: '  c         print*,'unpackdata: '
510       $        ,'tracker buffer length l_tra ',l_tra  c     $        ,'tracker buffer length l_tra ',l_tra
511       $        ,' exceeds tracker buffer dimensions '  c     $        ,' exceeds tracker buffer dimensions '
512           print*,'(packet corrupted)'  c         print*,'(packet corrupted)'
513  cc         runerror=1  cc         runerror=1
514           runerror=2           runerror=2
515           goto 50           goto 50
Legend:
Removed from v.6.4  
changed lines
  Added in v.6.5
  ViewVC Help
Powered by ViewVC 1.1.23