/[PAMELA software]/calo/unpacking/calunpack.for
ViewVC logotype

Diff of /calo/unpacking/calunpack.for

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

revision 1.4 by mocchiut, Thu Sep 28 19:44:06 2006 UTC revision 1.5 by mocchiut, Thu Oct 19 09:25:53 2006 UTC
# Line 1  Line 1 
1  C  C
2  C  Written by Emiliano Mocchiutti and Mirko Boezio  C  Written by Emiliano Mocchiutti and Mirko Boezio
3  C  C
4  C     * Version: 3.4.09 *  C     * Version: 3.4.10 *
5  C  C
6  C Changelog:  C Changelog:
7  C  C
8    C 3.4.09 - 3.4.10: (2006-10-19) Bug, crash when length is too big, fixed (introduced error code 143 = packet length problems);
9    C
10  C 3.4.08 - 3.4.09: (2006-09-28) XE is not always correctly found, fixed.  C 3.4.08 - 3.4.09: (2006-09-28) XE is not always correctly found, fixed.
11  C  C
12  C 3.4.07 - 3.4.08: (2006-06-29) XO is rotated, not XE!! fixed.  C 3.4.07 - 3.4.08: (2006-06-29) XO is rotated, not XE!! fixed.
# Line 125  C Normal variables definition Line 127  C Normal variables definition
127  C  C
128        integer lung, SOGLIA0, SEC2ND        integer lung, SOGLIA0, SEC2ND
129        INTEGER*1 VECTA(lung)        INTEGER*1 VECTA(lung)
130        INTEGER*2 vect(60000), test        INTEGER*2 vect(120000), test
131        integer*2 check, crc, e2(4)        integer*2 check, crc, e2(4)
132        INTEGER*2 length, length2        INTEGER*2 length, length2
133        integer me, m, dumpo, finoa        integer me, m, dumpo, finoa
# Line 207  C Line 209  C
209  C  C
210  C     IS LENGTH IS TOO LONG?  C     IS LENGTH IS TOO LONG?
211  C  C
212        if (lunga.gt.60000.and.dumpo.gt.0) then        if (lunga.ge.60000.and.dumpo.gt.0) then
213           print *,'Calorimeter WARNING: more than 60000 words!'           print *,'Calorimeter ERROR: more than 60000 words!'
214           lunga = 60000        endif
215          if (lunga.ge.60000) then
216             if (dumpo.eq.iev) print *,'lung = ',lung      
217             do i=1,4
218                merror(i)=143
219             enddo
220             goto 999
221        endif        endif
222  C  C
223  C     PRE-CLEAR VARIABLES  C     PRE-CLEAR VARIABLES
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23