/[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.5 by mocchiut, Thu Jun 29 12:56:46 2006 UTC revision 1.6 by mocchiut, Thu Aug 10 06:32:02 2006 UTC
# Line 149  c               print *,' CALORIMETER - Line 149  c               print *,' CALORIMETER -
149              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))
150              DO I = 1, NPLA              DO I = 1, NPLA
151                 NN = 0                 NN = 0
152                 IF (M.EQ.2) NN = 1  C?????               IF (M.EQ.2) NN = 1
153                 IF (MOD(I,2).EQ.NN) THEN                 IF (MOD(I,2).EQ.NN) THEN
154                    SHIFT = +0.5                    SHIFT = +0.5
155                 ELSE                 ELSE
# Line 261  C Line 261  C
261  C  C
262                 DO I = 1,NPLA                     DO I = 1,NPLA    
263                    NN = 0                    NN = 0
264                    IF (M.EQ.2) NN = 1  C?????                  IF (M.EQ.2) NN = 1
265                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
266                       SHIFT = +0.5                       SHIFT = +0.5
267                    ELSE                    ELSE
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23