/[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.13 by mocchiut, Sat Jan 27 06:22:19 2007 UTC revision 1.14 by mocchiut, Mon Mar 26 14:02:08 2007 UTC
# Line 142  c               print *,' CALORIMETER - Line 142  c               print *,' CALORIMETER -
142              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))
143              DO I = 1, NPLA              DO I = 1, NPLA
144                 NN = 0                 NN = 0
145  C?????               IF (M.EQ.2) NN = 1                 IF (M.EQ.2) NN = 1
146                 IF (MOD(I,2).EQ.NN) THEN                 IF (MOD(I,2).EQ.NN) THEN
147                    SHIFT = +0.5                    SHIFT = +0.5
148                 ELSE                 ELSE
# Line 268  c            print *,' bx ',bx,' by ',by Line 268  c            print *,' bx ',bx,' by ',by
268  C  C
269                 DO I = 1,NPLA                     DO I = 1,NPLA    
270                    NN = 0                    NN = 0
271  C?????                  IF (M.EQ.2) NN = 1                    IF (M.EQ.2) NN = 1
272                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
273                       SHIFT = +0.5                       SHIFT = +0.5
274                    ELSE                    ELSE
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.23