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

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

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

revision 1.8 by mocchiut, Mon Jan 22 09:17:01 2007 UTC revision 1.9 by mocchiut, Mon Jan 22 09:44:49 2007 UTC
# Line 277  C     Line 277  C    
277                       DISTX = PIANO(I) - 5.81                       DISTX = PIANO(I) - 5.81
278                       Y(I) = DISTX * TANX + CX                       Y(I) = DISTX * TANX + CX
279                       BAR(M,I) = Y(I)                       BAR(M,I) = Y(I)
280                       CBAR(M,I) = Y(I)          c                     CBAR(M,I) = Y(I)
281                         CBAR(M,I) = (Y(I) - XALIG)/10.        
282                       IF (I.EQ.22) MX=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))                       IF (I.EQ.22) MX=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))
283  C      C    
284                    ELSE                    ELSE
285                       DISTY = PIANO(I)                                       DISTY = PIANO(I)                
286                       YY(I) = DISTY * TANY + CY                       YY(I) = DISTY * TANY + CY
287                       BAR(M,I) = YY(I)                       BAR(M,I) = YY(I)
288                       CBAR(M,I) = YY(I)  c                     CBAR(M,I) = YY(I)
289                         CBAR(M,I) = (-YALIG + YY(I))/10.
290                       IF (I.EQ.22) MY=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))                       IF (I.EQ.22) MY=ABS(Y(1)-Y(22))/ABS(ZIN(1)-ZIN(22))
291  C      C    
292                    ENDIF                    ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23