/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/filladc.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/filladc.f

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

revision 1.4 by pam-fi, Thu Sep 28 14:04:40 2006 UTC revision 1.5 by pam-fi, Fri Sep 29 08:13:04 2006 UTC
# Line 66  C--------------------------------------- Line 66  C---------------------------------------
66              call compdecode(word,flag,tipo,info,errflag)              call compdecode(word,flag,tipo,info,errflag)
67                            
68              if(errflag.ne.0.) then              if(errflag.ne.0.) then
69                 if(debug)print*,'filladc --> ERROR on compdecode'                 if(verbose)print*,'filladc --> ERROR on compdecode'
70                 iflag=1                 iflag=1
71                 GOOD1(DSPn) = 10                 GOOD1(DSPn) = 10
72  c               return  c               return
# Line 76  c               return Line 76  c               return
76              if(flag.eq.1) then  !   flag: fine messaggio (ladder)              if(flag.eq.1) then  !   flag: fine messaggio (ladder)
77                                
78                 if(info.ne.1.and.info.ne.2.and.info.ne.3) then                 if(info.ne.1.and.info.ne.2.and.info.ne.3) then
79                    if(debug)print*,                    if(verbose)print*,
80       $                 'filladc --> wrong end-of-ladder '       $                 'filladc --> wrong end-of-ladder '
81       $                 //'in COMPRESSED mode'       $                 //'in COMPRESSED mode'
82                    if(debug)print*,                    if(verbose)print*,
83       $                 '            info(=ladder) ',info,'  type ',tipo       $                 '            info(=ladder) ',info,'  type ',tipo
84                    iflag=1                    iflag=1
85                    GOOD1(DSPn) = 10                    GOOD1(DSPn) = 10
# Line 151  c     print*,DSPn,nvk(js),nst(js),newval Line 151  c     print*,DSPn,nvk(js),nst(js),newval
151                       is = iaddr                       is = iaddr
152                       prec_ind = 1                       prec_ind = 1
153                    else                    else
154                       if(debug)print*,'filladc --> address '//                       if(verbose)print*,'filladc --> address '//
155       $                    'out of range - iaddr,is',iaddr,is       $                    'out of range - iaddr,is',iaddr,is
156                       iflag=1                       iflag=1
157                       GOOD1(DSPn) = 10                       GOOD1(DSPn) = 10
# Line 163  c                     return Line 163  c                     return
163                    if(prec_ind.eq.0) is=is+1                    if(prec_ind.eq.0) is=is+1
164                    if(info.ge.0.and.info.le.4095) then                    if(info.ge.0.and.info.le.4095) then
165                       if(is.gt.3072)then                       if(is.gt.3072)then
166                          if(debug)print*,                          if(verbose)print*,
167       $                       'filladc --> strip out of range - DSPn,is'       $                       'filladc --> strip out of range - DSPn,is'
168       $                       ,DSPn,is       $                       ,DSPn,is
169                          iflag=1                          iflag=1
# Line 186  ccc   print*,DSPn,nvk(is),nst(is),newval Line 186  ccc   print*,DSPn,nvk(is),nst(is),newval
186                                            
187                       oldVAL=newVAL                       oldVAL=newVAL
188                    else                    else
189                       if(debug)                       if(verbose)
190       $                    print*,'filladc --> datum out of range - info'       $                    print*,'filladc --> datum out of range - info'
191       $                    ,info       $                    ,info
192                       iflag=1                       iflag=1
# Line 238  c     endif Line 238  c     endif
238                 enddo            !loop over strips                 enddo            !loop over strips
239                 idata = idata+1                 idata = idata+1
240                 if(datatracker(idata).ne.ior(z'1800',i+3)) then                 if(datatracker(idata).ne.ior(z'1800',i+3)) then
241                    if(debug)                    if(verbose)
242       $                 print*,'filladc --> ',       $                 print*,'filladc --> ',
243       $                 'wrong end-of-ladder in FULL mode'       $                 'wrong end-of-ladder in FULL mode'
244                    if(debug)                    if(verbose)
245       $                 print*,'            word ',datatracker(idata)       $                 print*,'            word ',datatracker(idata)
246                    if(debug)                    if(verbose)
247       $                 print*,'            should be ',ior(z'1800',i+3)       $                 print*,'            should be ',ior(z'1800',i+3)
248                    iflag=1                    iflag=1
249                    GOOD1(DSPn) = 10                    GOOD1(DSPn) = 10
# Line 253  c                  return               Line 253  c                  return              
253           endif           endif
254           goto 334           goto 334
255   333  continue   333  continue
256        if(debug)print*,'filladc --> ',iv        if(verbose)print*,'filladc --> ',iv
257       $     ,'^ DSP packet missing or corrupted: '       $     ,'^ DSP packet missing or corrupted: '
258       $     ,'DSPn, datalength(iv) => '       $     ,'DSPn, datalength(iv) => '
259       $     ,DSPn,datalength(iv)       $     ,DSPn,datalength(iv)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23