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

Diff of /calo/unpacking/calpulse.for

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

revision 1.1 by mocchiut, Mon Dec 5 16:23:20 2005 UTC revision 1.2 by mocchiut, Thu Jun 29 07:50:54 2006 UTC
# Line 1  Line 1 
1  C  C
2  C  Written by Mirko Boezio and Emiliano Mocchiutti  C  Written by Mirko Boezio and Emiliano Mocchiutti
3  C  C
4  C     * Version: 3.1.4 *  C     * Version: 3.1.5 *
5    C
6    C     3.1.4 - 3.1.5: (2006-06-29) save in calpuls(section,1,1) and calpuls(section,1,2) the CRC values (transmitted and calculated) in case of CRC errors
7  C  C
8  C     3.1.3 - 3.1.4: (2005-05-26) the decoding is wrong!!! we are reading all strip in one plane per time and not one strip over all planes per time!!!!  C     3.1.3 - 3.1.4: (2005-05-26) the decoding is wrong!!! we are reading all strip in one plane per time and not one strip over all planes per time!!!!
9  C  C
# Line 212  c     if we run out of vector give an er Line 214  c     if we run out of vector give an er
214  c      c    
215           if (ic.gt.(lung-1)) then           if (ic.gt.(lung-1)) then
216              me = 1              me = 1
217              print *,'1 me = 1'  c            print *,'1 me = 1'
218              call clearall              call clearall
219              do i = 1, 4              do i = 1, 4
220                 error(i) = 129                             error(i) = 129            
# Line 248  C Line 250  C
250           enddo           enddo
251           if (check.ne.vect(length)) then           if (check.ne.vect(length)) then
252              ERROR(contr) = 132              ERROR(contr) = 132
253              print *,'2 me = 1'  c            print *,'2 me = 1'
254                calpuls(k,1,1) = check
255                calpuls(k,1,2) = vect(length)            
256              me = 1              me = 1
257              goto 200              goto 200
258           endif                   endif        
# Line 285  c Line 289  c
289                 endif                 endif
290             enddo             enddo
291           enddo           enddo
292           print *,'3 me = 0'  c         print *,'3 me = 0'
293           me = 0           me = 0
294  c  c
295   50      continue   50      continue
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23