/[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.1 by kusanagi, Mon Feb 27 09:25:41 2006 UTC revision 6.2 by kusanagi, Fri Jun 23 12:13:13 2006 UTC
# Line 20  Line 20 
20  *     YODAflag is asserted  *     YODAflag is asserted
21  *     ---------------------------------------------------  *     ---------------------------------------------------
22    
23        integer YODAflag  c$$$      integer YODAflag
24    
25                
26        logical ALARMS        logical ALARMS
# Line 28  Line 28 
28                
29        integer runerror          !readevent error flag        integer runerror          !readevent error flag
30    
31        parameter (MAXBUFFLEN=z'172c8')  c$$$      parameter (MAXBUFFLEN=z'172c8')
32        integer*4 length_buffer  c$$$      integer*4 length_buffer
33        integer*1 buffer(MAXBUFFLEN)  c$$$      integer*1 buffer(MAXBUFFLEN)
34        integer curpos            !current position in buffer  c$$$      integer curpos            !current position in buffer
35        integer startcrc  c$$$      integer startcrc
36        integer stopcrc  c$$$      integer stopcrc
37        integer*1 crctemp        integer*1 crctemp
38    
39  *     -------------------  *     -------------------
# Line 47  Line 47 
47        crctemp=0                      crctemp=0              
48  *     -------------------  *     -------------------
49    
50    *         ===================================
51              if(length_buffer.gt.MAXBUFFLEN)then
52                    print*,'trkeventpkt: buffer() size must be at least ',length_buffer,' !!!!'
53                    goto 2222
54              endif
55    *         ===================================
56    
57    
58        do iview=1,nviews         !loop on DSPs        do iview=1,nviews         !loop on DSPs
59           call searchtrkheader(runerror,buffer,length_buffer,curpos,           call searchtrkheader(runerror,buffer,length_buffer,curpos,
60       $        startcrc)       $        startcrc)
# Line 128  Line 136 
136  *     YODAflag is asserted  *     YODAflag is asserted
137  *     ---------------------------------------------------  *     ---------------------------------------------------
138            
139        integer YODAflag  c$$$      integer YODAflag
140    
141        logical ALARMs        logical ALARMs
142    
143        integer runerror          !readevent error flag        integer runerror          !readevent error flag
144        parameter (MAXBUFFLEN=z'172c8')  c$$$      parameter (MAXBUFFLEN=z'172c8')
145        integer*4 length_buffer  c$$$      integer*4 length_buffer
146        integer*1 buffer(MAXBUFFLEN)  c$$$      integer*1 buffer(MAXBUFFLEN)
147        integer curpos            !current position in buffer  c$$$      integer curpos            !current position in buffer
148        integer startcrc  c$$$      integer startcrc
149        integer stopcrc  c$$$      integer stopcrc
150        integer*1 crctemp        integer*1 crctemp
151    
152  *     -------------------  *     -------------------
# Line 225  C....................................... Line 233  C.......................................
233        include '../common/commontracker.f'        include '../common/commontracker.f'
234        include '../common/common_readraw.f'        include '../common/common_readraw.f'
235    
236        parameter (MAXBUFFLEN=z'172c8')  c$$$      parameter (MAXBUFFLEN=z'172c8')
237        integer*4 length_buffer  c$$$      integer*4 length_buffer
238        integer*1 buffer(MAXBUFFLEN)  c$$$      integer*1 buffer(MAXBUFFLEN)
239        integer curpos            !current position in buffer  c$$$      integer curpos            !current position in buffer
240        integer startcrc  c$$$      integer startcrc
241    
242        integer runerror          !readevent error flag        integer runerror          !readevent error flag
243    
# Line 324  c--------------------------------------- Line 332  c---------------------------------------
332        include '../common/commontracker.f'        include '../common/commontracker.f'
333        include '../common/common_readraw.f'        include '../common/common_readraw.f'
334    
335        parameter (MAXBUFFLEN=z'172c8')  c$$$      parameter (MAXBUFFLEN=z'172c8')
336        integer*4 length_buffer  c$$$      integer*4 length_buffer
337        integer*1 buffer(MAXBUFFLEN)  c$$$      integer*1 buffer(MAXBUFFLEN)
338        integer curpos            !current position in buffer  c$$$      integer curpos            !current position in buffer
339        integer startcrc  c$$$      integer startcrc
340        integer stopcrc  c$$$      integer stopcrc
341        integer*1 crctemp        integer*1 crctemp
342        integer*1 crc_trail        integer*1 crc_trail
343    
# Line 452  ',crcte Line 460  ',crcte
460        include '../common/common_readraw.f'        include '../common/common_readraw.f'
461        include '../common/level0.f'        include '../common/level0.f'
462    
463        parameter (MAXBUFFLEN=z'172c8')  c$$$      parameter (MAXBUFFLEN=z'172c8')
464        integer*4 length_buffer  c$$$      integer*4 length_buffer
465        integer*1 buffer(MAXBUFFLEN)  c$$$      integer*1 buffer(MAXBUFFLEN)
466        integer curpos            !current position in buffer  c$$$      integer curpos            !current position in buffer
467        integer startcrc  c$$$      integer startcrc
468        integer stopcrc  c$$$      integer stopcrc
469        integer*1 crctemp        integer*1 crctemp
470        integer*1 crcdat        integer*1 crcdat
471    
472        integer runerror          !readevent error flag        integer runerror          !readevent error flag
473        integer l_tra  c      integer l_tra
474    
475        integer bid1_dat,bid2_dat,bid3_dat,bid4_dat,bid5_dat,bid6_dat        integer bid1_dat,bid2_dat,bid3_dat,bid4_dat,bid5_dat,bid6_dat
476       $     ,bid7_dat,bid_dat_sum       $     ,bid7_dat,bid_dat_sum
# Line 524  C--------------------------------------- Line 532  C---------------------------------------
532        if(l_tra.eq.0)then        if(l_tra.eq.0)then
533           goto 18                !empty buffer           goto 18                !empty buffer
534        endif        endif
535              
536          if(l_tra.gt.MAXBTRALEN)then
537             print*,'unpackdata: '
538         $        ,'tracker buffer length l_tra exceeds buffer dimension '
539         $        ,l_tra,MAXBTRALEN
540             runerror=1
541             goto 50
542          endif
543        call dunpacker(l_tra,b_tra,runerror,buffer,length_buffer,curpos)        call dunpacker(l_tra,b_tra,runerror,buffer,length_buffer,curpos)
544        if(runerror.eq.1.or.runerror.eq.-1) then                          if(runerror.eq.1.or.runerror.eq.-1) then
545           goto 50                !go to end           goto 50                !go to end
546        endif        endif
547    
Legend:
Removed from v.6.1  
changed lines
  Added in v.6.2
  ViewVC Help
Powered by ViewVC 1.1.23