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

Diff of /calo/unpacking/calpedestal.for

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

revision 1.3 by mocchiut, Thu Jun 29 12:50:42 2006 UTC revision 1.4 by mocchiut, Thu Jun 29 15:04:32 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) another bug XO is rotated, not XE!! fixed.
7  C  C
8  C     3.1.3 - 3.1.4: (2006-06-29) XO is rotated, not XE!! fixed.  C     3.1.3 - 3.1.4: (2006-06-29) XO is rotated, not XE!! fixed.
9  C  C
# Line 333  c Line 335  c
335           do i = 1,11           do i = 1,11
336              do j = 1,96              do j = 1,96
337                 icb = icb + 1                 icb = icb + 1
338                 if (k.eq.2) then                 if (k.eq.3) then
339                    calped(k,i,97-j) = vect(icb)                    calped(k,i,97-j) = vect(icb)
340                    calgood(k,i,97-j) = vect(icb+1)                    calgood(k,i,97-j) = vect(icb+1)
341                 else                 else
# Line 362  C Line 364  C
364           do i = 1,11           do i = 1,11
365              do j = 1,6              do j = 1,6
366                 icb = icb + 1                 icb = icb + 1
367                 if (k.eq.2) then                 if (k.eq.3) then
368                    calthr(k,i,7-j) = vect(icb)                    calthr(k,i,7-j) = vect(icb)
369                 else                 else
370                    calthr(k,i,j) = vect(icb)                    calthr(k,i,j) = vect(icb)
# Line 388  C Line 390  C
390           do i = 1,11           do i = 1,11
391              do j = 1,96              do j = 1,96
392                 icb = icb + 1                 icb = icb + 1
393                 if (k.eq.2) then                 if (k.eq.3) then
394                    calrms(k,i,97-j) = vect(icb)                    calrms(k,i,97-j) = vect(icb)
395                 else                 else
396                    calrms(k,i,j) = vect(icb)                    calrms(k,i,j) = vect(icb)
# Line 400  c Line 402  c
402           do i = 1,11           do i = 1,11
403              do j = 1,6              do j = 1,6
404                 icb = icb + 1                 icb = icb + 1
405                 if (k.eq.2) then                 if (k.eq.3) then
406                    calbase(k,i,7-j) = vect(icb)                    calbase(k,i,7-j) = vect(icb)
407                    icb = icb + 1                    icb = icb + 1
408                    icb = icb + 1                    icb = icb + 1
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23