/[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.1 by mocchiut, Mon Dec 5 16:23:20 2005 UTC revision 1.3 by mocchiut, Thu Jun 29 12:50:42 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.2 *  C     * Version: 3.1.4 *
5    C
6    C     3.1.3 - 3.1.4: (2006-06-29) XO is rotated, not XE!! fixed.
7    C
8    C     3.1.2 - 3.1.3: (2006-06-29) save in calped(section,1,1) and calped(section,1,2) the CRC values (transmitted and calculated) in case of CRC errors
9  C  C
10  C     3.1.1 - 3.1.2: (2005-12-02) recognize RAW mode command and exit with error 130.  C     3.1.1 - 3.1.2: (2005-12-02) recognize RAW mode command and exit with error 130.
11  C  C
# Line 299  C Line 303  C
303           enddo           enddo
304           if (check.ne.vect(length)) then           if (check.ne.vect(length)) then
305              ERROR(contr) = 132              ERROR(contr) = 132
306                calped(k,1,1) = check
307                calped(k,1,2) = vect(length)
308              goto 200              goto 200
309           endif           endif
310  C  C
# Line 327  c Line 333  c
333           do i = 1,11           do i = 1,11
334              do j = 1,96              do j = 1,96
335                 icb = icb + 1                 icb = icb + 1
336                 if (k.eq.1) then                 if (k.eq.2) then
337                    calped(k,i,97-j) = vect(icb)                    calped(k,i,97-j) = vect(icb)
338                    calgood(k,i,97-j) = vect(icb+1)                    calgood(k,i,97-j) = vect(icb+1)
339                 else                 else
# Line 356  C Line 362  C
362           do i = 1,11           do i = 1,11
363              do j = 1,6              do j = 1,6
364                 icb = icb + 1                 icb = icb + 1
365                 if (k.eq.1) then                 if (k.eq.2) then
366                    calthr(k,i,7-j) = vect(icb)                    calthr(k,i,7-j) = vect(icb)
367                 else                 else
368                    calthr(k,i,j) = vect(icb)                    calthr(k,i,j) = vect(icb)
# Line 382  C Line 388  C
388           do i = 1,11           do i = 1,11
389              do j = 1,96              do j = 1,96
390                 icb = icb + 1                 icb = icb + 1
391                 if (k.eq.1) then                 if (k.eq.2) then
392                    calrms(k,i,97-j) = vect(icb)                    calrms(k,i,97-j) = vect(icb)
393                 else                 else
394                    calrms(k,i,j) = vect(icb)                    calrms(k,i,j) = vect(icb)
# Line 394  c Line 400  c
400           do i = 1,11           do i = 1,11
401              do j = 1,6              do j = 1,6
402                 icb = icb + 1                 icb = icb + 1
403                 if (k.eq.1) then                 if (k.eq.2) then
404                    calbase(k,i,7-j) = vect(icb)                    calbase(k,i,7-j) = vect(icb)
405                    icb = icb + 1                    icb = icb + 1
406                    icb = icb + 1                    icb = icb + 1
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23