/[PAMELA software]/chewbacca/PamOffLineSW/forroutines/tof/tofunpack.for
ViewVC logotype

Diff of /chewbacca/PamOffLineSW/forroutines/tof/tofunpack.for

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

revision 1.1.1.1 by mocchiut, Tue Sep 23 07:20:15 2008 UTC revision 1.2 by mocchiut, Tue Mar 27 08:34:02 2012 UTC
# Line 75  c Line 75  c
75        ic=ic+2        ic=ic+2
76    
77        if ((ic+1).gt.lung) then        if ((ic+1).gt.lung) then
78           me=1  c        print *,' 1 ME'
79            me=1
80           return           return
81        endif        endif
82    
# Line 90  c      print *,'++++++++++ Tof Unpack 2 Line 91  c      print *,'++++++++++ Tof Unpack 2
91  c  c
92        ic=ic+2        ic=ic+2
93        if (ic.gt.lung) then        if (ic.gt.lung) then
94    c        print *,' 2 ME'
95           me=1           me=1
96           return           return
97        endif        endif
# Line 110  c Line 112  c
112           flag2=.false.           flag2=.false.
113         endif         endif
114        if (ic.gt.lung) then        if (ic.gt.lung) then
115    c        print *,' 3 ME'
116           me=1           me=1
117           return           return
118        endif        endif
# Line 146  c Line 149  c
149         do iword=0,17 ! le parole successive sono copiate in vectof         do iword=0,17 ! le parole successive sono copiate in vectof
150    
151            if ((ic+iword).gt.lung) then            if ((ic+iword).gt.lung) then
152    c            print *,' 4 ME'
153               me=1               me=1
154               return               return
155            endif            endif
# Line 158  c Line 162  c
162         if((tdcnum(j).eq.1).or.(tdcnum(j).eq.2))then         if((tdcnum(j).eq.1).or.(tdcnum(j).eq.2))then
163           do iword=0,17           do iword=0,17
164              if ((ic+iword).gt.lung) then              if ((ic+iword).gt.lung) then
165    c        print *,' 5 ME'
166                 me=1                 me=1
167                 return                 return
168              endif              endif
# Line 436  c Check consistency of CRC. Line 441  c Check consistency of CRC.
441  c  c
442  ccc      if(vecta(ic).lt.0)vecta(ic)=vecta(ic)+256  ccc      if(vecta(ic).lt.0)vecta(ic)=vecta(ic)+256
443        if (ic.gt.lung) then        if (ic.gt.lung) then
444    c        print *,' 6 ME'
445           me=1           me=1
446           return           return
447        endif        endif
# Line 451  c Line 457  c
457        sup = ic - 1        sup = ic - 1
458        do i = inf,sup        do i = inf,sup
459           if ((i.gt.lung).or.(i.lt.1)) then           if ((i.gt.lung).or.(i.lt.1)) then
460    c        print *,' 7 ME'
461              me=1              me=1
462              return              return
463           endif           endif
464           check=crctof(check,vecta(i))           check=crctof(check,vecta(i))
465        enddo        enddo
466  c      if (check.ne.vecta(ic)) then  c      if (check.ne.vecta(ic)) then
467    c        print *,' 8 ME = 0'
468        me = 0        me = 0
469        if (check.ne.ibuf) then        if (check.ne.ibuf) then
470  c         print *,'crc wrong ',ibuf, check  c         print *,'crc wrong ',ibuf, check
471    c        print *,' 9 ME'
472           me = 1           me = 1
473        endif        endif
474    
# Line 467  c Line 476  c
476  c        print *,'---------> ic, j' ,ic,j  c        print *,'---------> ic, j' ,ic,j
477          ic=ic+1          ic=ic+1
478          if (ic.gt.lung) then          if (ic.gt.lung) then
479    c        print *,' 10 ME'
480             me=1             me=1
481             return             return
482          endif          endif
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23