/[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.1.1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC revision 1.2 by mocchiut, Tue May 23 08:35:45 2006 UTC
# Line 167  C Line 167  C
167              IF (NPCFIT(M).GE.2) THEN              IF (NPCFIT(M).GE.2) THEN
168                 VARCFIT(M) = VARFIT(M)                 VARCFIT(M) = VARFIT(M)
169                 IF (M.EQ.1) THEN                 IF (M.EQ.1) THEN
170                    IMPX = CX                    IMPX = (CX - XALIG)/10.
171                    TANX = TG(1)                    TANX = TG(1)
172                 ELSE                 ELSE
173                    IMPY = CY                    IMPY =( YALIG - CY)/10.
174                    TANY = TG(2)                    TANY = TG(2)
175                 ENDIF                 ENDIF
176  C                C              
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23