/[PAMELA software]/DarthVader/CalorimeterLevel2/src/calol2cm.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/calol2cm.for

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

revision 1.2 by mocchiut, Tue May 23 08:35:45 2006 UTC revision 1.4 by mocchiut, Thu Aug 10 06:32:02 2006 UTC
# Line 170  C Line 170  C
170                    IMPX = (CX - XALIG)/10.                    IMPX = (CX - XALIG)/10.
171                    TANX = TG(1)                    TANX = TG(1)
172                 ELSE                 ELSE
173                    IMPY =( YALIG - CY)/10.                    IMPY =( CY - YALIG)/10.
174                    TANY = TG(2)                    TANY = TG(2)
175                 ENDIF                 ENDIF
176  C                C              
177                 DO I = 1,NPLA                     DO I = 1,NPLA    
178                    NN = 0                    NN = 0
179                    IF (M.EQ.2) NN = 1  C????                  IF (M.EQ.2) NN = 1
180                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
181                       SHIFT = +0.5                       SHIFT = +0.5
182                    ELSE                    ELSE
# Line 193  C     Line 193  C    
193                       DISTY = PIANO(I)                                       DISTY = PIANO(I)                
194                       YY(I) = DISTY * TG(2) + CY                       YY(I) = DISTY * TG(2) + CY
195                       BAR(M,I) = YY(I)                       BAR(M,I) = YY(I)
196                       CBAR(M,I) = (YALIG - YY(I))/10.                       CBAR(M,I) = (-YALIG + YY(I))/10.
197  C      C    
198                    ENDIF                    ENDIF
199                    CALL LASTRISCIA(BAR(M,I),IBAR(M,I))                    CALL LASTRISCIA(BAR(M,I),IBAR(M,I))
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23