/[PAMELA software]/calo/ground/LEVEL2/src/crcalol2.for
ViewVC logotype

Diff of /calo/ground/LEVEL2/src/crcalol2.for

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

revision 1.1 by mocchiut, Mon Dec 5 16:13:54 2005 UTC revision 1.5 by mocchiut, Mon Mar 20 10:12:14 2006 UTC
# Line 89  C Line 89  C
89        PIANO(1) = 0.        PIANO(1) = 0.
90        DO I = 2, 22        DO I = 2, 22
91           IF ( MOD(I,2).EQ.0 ) THEN           IF ( MOD(I,2).EQ.0 ) THEN
92              PIANO(I) = PIANO(I-1) - 8.42              PIANO(I) = PIANO(I-1) - 8.09
93           ELSE           ELSE
94              PIANO(I) = PIANO(I-1) - 9.76              PIANO(I) = PIANO(I-1) - 10.09
95           ENDIF           ENDIF
96        ENDDO        ENDDO
97  C  C
# Line 140  C     Line 140  C    
140        DISTX = 0.        DISTX = 0.
141        DISTY = 0.        DISTY = 0.
142  C  C
143    c      print *,'trigty = ',trigty
144    C      
145        DO I = 1,22        DO I = 1,22
146           DO J = 1,96           DO J = 1,96
147    c            print *,i,j,' x ',ESTRIP(1,I,J),' y ',ESTRIP(2,I,J)
148    c            print *,' i ',i,' j ',j,' y ',ESTRIP(2,I,J)
149              IF ( MOD(I,2).NE.0 ) THEN              IF ( MOD(I,2).NE.0 ) THEN
150                 IF ( ESTRIP(2,I,J).GT.EMIN ) THEN                 IF ( ESTRIP(2,I,J).GT.EMIN ) THEN
151                    DEXY(2,I,J) = ESTRIP(2,I,J)                    DEXY(2,I,J) = ESTRIP(2,I,J)
# Line 212  c               ELSE Line 216  c               ELSE
216  c               ENDIF  c               ENDIF
217  C      C    
218                 IF (M.EQ.1) THEN                 IF (M.EQ.1) THEN
219                    DISTX = PIANO(I) - 5.1                    DISTX = PIANO(I) - 5.81
220                    Y(I) = DISTX * TG(1) + CX                    Y(I) = DISTX * TG(1) + CX
221                    BAR(M,I) = Y(I)                    BAR(M,I) = Y(I)
222                    CBAR(M,I) = Y(I)                            CBAR(M,I) = Y(I)        
# Line 258  C     Line 262  C    
262                    IF (MOD(M,2).EQ.0) THEN                    IF (MOD(M,2).EQ.0) THEN
263                       DISTX = PIANO(I) + ZALIG !  Z ALIGNEMENT FACTOR                       DISTX = PIANO(I) + ZALIG !  Z ALIGNEMENT FACTOR
264                    ELSE                    ELSE
265                       DISTX = PIANO(I) - 5.1 + ZALIG !  Z ALIGNEMENT FACTOR                                     DISTX = PIANO(I) - 5.81 + ZALIG !  Z ALIGNEMENT FACTOR              
266  C      C    
267                    ENDIF                                  ENDIF              
268                    ZIN(I) = distx / 10.                    ZIN(I) = distx / 10.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23