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

Diff of /calo/unpacking/calunpack.for

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

revision 1.1.1.1 by mocchiut, Mon Dec 5 16:23:20 2005 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 Emiliano Mocchiutti and Mirko Boezio  C  Written by Emiliano Mocchiutti and Mirko Boezio
3  C  C
4  C     * Version: 3.4.06 *  C     * Version: 3.4.08 *
5  C  C
6  C Changelog:  C Changelog:
7  C  C
8    C 3.4.07 - 3.4.08: (2006-06-29) XO is rotated, not XE!! fixed.
9    C
10    C 3.4.06 - 3.4.07: (2006-06-29) save CRC values in calselftrig(section,1) and  calselftrig(section,2) in case of CRC errors
11    C
12  C 3.4.05 - 3.4.06: (2005-01-12) section order wrong in CLEARSEC, fixed.  C 3.4.05 - 3.4.06: (2005-01-12) section order wrong in CLEARSEC, fixed.
13  C  C
14  C 3.4.04 - 3.4.05: (2005-01-05) XE is section y odd not even, fixed.  C 3.4.04 - 3.4.05: (2005-01-05) XE is section y odd not even, fixed.
# Line 774  C Line 778  C
778        endif        endif
779  C  C
780        if (check.ne.vect(length)) then        if (check.ne.vect(length)) then
          merror(contr) = 132  
          chi = chi + 4  
          lleng = 0  
          length2 = 0  
          length = 0  
781  C  C
782  C     clear vectors of that section in the common  C     clear vectors of that section in the common
783  C  C
784           call clearsec           call clearsec
785  C  C
786             calselftrig(k,1) = check
787             calselftrig(k,2) = vect(length)
788    c        
789             merror(contr) = 132
790             chi = chi + 4
791             lleng = 0
792             length2 = 0
793             length = 0
794    c
795           if (ke.eq.1.and.headcor.ne.2) then           if (ke.eq.1.and.headcor.ne.2) then
796              ic = 10              ic = 10
797           elseif (headcor.eq.2) then           elseif (headcor.eq.2) then
# Line 924  C     Line 932  C    
932  C      C    
933        DO I = 1,11        DO I = 1,11
934           DO J = 1,96           DO J = 1,96
935              DEXY(2,2*I,J) = DEDX2(I,J)              DEXY(2,2*I,97-J) = DEDX2(I,J)
936              DEXY(1,2*I-1,J) = DEDX4(I,J)              DEXY(1,2*I-1,J) = DEDX4(I,J)
937              DEXY(2,2*I-1,97-J) = DEDX1(I,J)              DEXY(2,2*I-1,J) = DEDX1(I,J)
938              DEXY(1,2*I,J) = DEDX3(I,J)              DEXY(1,2*I,J) = DEDX3(I,J)
939              DEXYC(2,2*I,J) = DEDX2C(I,J)              DEXYC(2,2*I,97-J) = DEDX2C(I,J)
940              DEXYC(1,2*I-1,J) = DEDX4C(I,J)              DEXYC(1,2*I-1,J) = DEDX4C(I,J)
941              DEXYC(2,2*I-1,97-J) = DEDX1C(I,J)              DEXYC(2,2*I-1,J) = DEDX1C(I,J)
942              DEXYC(1,2*I,J) = DEDX3C(I,J)              DEXYC(1,2*I,J) = DEDX3C(I,J)
943           enddo           enddo
944           do j = 1,6           do j = 1,6
945              base(2,2*i,j) = base2(i,j)              base(2,2*i,7-j) = base2(i,j)
946              base(1,2*i-1,j) = base4(i,j)              base(1,2*i-1,j) = base4(i,j)
947              base(2,2*i-1,7-j) = base1(i,j)              base(2,2*i-1,j) = base1(i,j)
948              base(1,2*i,j) = base3(i,j)              base(1,2*i,j) = base3(i,j)
949           enddo           enddo
950        enddo        enddo
# Line 1412  C Line 1420  C
1420                 DEXYC(1,2*I-1,J) = 0.                 DEXYC(1,2*I-1,J) = 0.
1421              endif              endif
1422              if (contr.eq.1) then              if (contr.eq.1) then
1423                 DEXY(2,2*I-1,97-J) = 0.                 DEXY(2,2*I-1,J) = 0.
1424                 DEXYC(2,2*I-1,97-J) = 0.                 DEXYC(2,2*I-1,J) = 0.
1425              endif              endif
1426              if (contr.eq.2) then              if (contr.eq.2) then
1427                 DEXY(2,2*I,J) = 0.                 DEXY(2,2*I,97-J) = 0.
1428                 DEXYC(2,2*I,J) = 0.                 DEXYC(2,2*I,97-J) = 0.
1429              endif              endif
1430           enddo           enddo
1431           do j = 1,6           do j = 1,6
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23