/[PAMELA software]/yoda/techmodel/forroutines/calorimeter/calpulse.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/calorimeter/calpulse.for

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

revision 6.0 by kusanagi, Tue Feb 7 17:11:10 2006 UTC revision 6.1 by kusanagi, Fri Jun 30 13:09:19 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.7 *
5    C
6    C     3.1.6 - 3.1.7: (2006-06-29) another bug related to XO is rotated, not XE!! fixed.
7    C
8    C     3.1.5 - 3.1.6: (2006-06-29) XO is rotated, not XE!! fixed.
9    C
10    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
11  C  C
12  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!!!!
13  C  C
# Line 249  C Line 255  C
255           if (check.ne.vect(length)) then           if (check.ne.vect(length)) then
256              ERROR(contr) = 132              ERROR(contr) = 132
257  c            print *,'2 me = 1'  c            print *,'2 me = 1'
258                calpuls(k,1,1) = check
259                calpuls(k,1,2) = vect(length)            
260              me = 1              me = 1
261              goto 200              goto 200
262           endif                   endif        
# Line 278  c Line 286  c
286           do i = 1,11           do i = 1,11
287              do j = 1,96              do j = 1,96
288                 icb = icb + 1                 icb = icb + 1
289                 if (k.eq.1) then                 if (k.eq.3) then
290                    calpuls(k,i,97-j) = vect(icb)                    calpuls(k,i,97-j) = vect(icb)
291                 else                 else
292                    calpuls(k,i,j) = vect(icb)                    calpuls(k,i,j) = vect(icb)
Legend:
Removed from v.6.0  
changed lines
  Added in v.6.1
  ViewVC Help
Powered by ViewVC 1.1.23