/[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.2 by mocchiut, Thu Jun 29 07:50:54 2006 UTC revision 1.3 by mocchiut, Thu Jun 29 12:50:43 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.5 *  C     * Version: 3.1.6 *
5    C
6    C     3.1.5 - 3.1.6: (2006-06-29) XO is rotated, not XE!! fixed.
7  C  C
8  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  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
9  C  C
# Line 282  c Line 284  c
284           do i = 1,11           do i = 1,11
285              do j = 1,96              do j = 1,96
286                 icb = icb + 1                 icb = icb + 1
287                 if (k.eq.1) then                 if (k.eq.2) then
288                    calpuls(k,i,97-j) = vect(icb)                    calpuls(k,i,97-j) = vect(icb)
289                 else                 else
290                    calpuls(k,i,j) = vect(icb)                    calpuls(k,i,j) = vect(icb)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23