/[PAMELA software]/yoda/techmodel/forroutines/tof/tofunpack.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/tof/tofunpack.for

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

revision 6.2 by kusanagi, Thu May 25 11:06:43 2006 UTC revision 6.3 by mocchiut, Tue Sep 12 08:56:29 2006 UTC
# Line 425  c Line 425  c
425           check=crctof(check,vecta(i))           check=crctof(check,vecta(i))
426        enddo        enddo
427  c      if (check.ne.vecta(ic)) then  c      if (check.ne.vecta(ic)) then
428          me = 0
429        if (check.ne.ibuf) then        if (check.ne.ibuf) then
430           print *,'crc wrong ',ibuf, check           print *,'crc wrong ',ibuf, check
431           me = 1           me = 1
Legend:
Removed from v.6.2  
changed lines
  Added in v.6.3
  ViewVC Help
Powered by ViewVC 1.1.23