/[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.18 by mocchiut, Thu Nov 29 14:20:31 2007 UTC revision 1.19 by mocchiut, Thu Nov 29 16:11:53 2007 UTC
# Line 150  c               print *,' CALORIMETER - Line 150  c               print *,' CALORIMETER -
150  c               IF (M.EQ.2) NN = 1  c               IF (M.EQ.2) NN = 1
151                 IF (MOD(I,2).EQ.NN) THEN                 IF (MOD(I,2).EQ.NN) THEN
152                    IF (REVERSE.EQ.0) THEN                    IF (REVERSE.EQ.0) THEN
                      SHIFT = +0.5  
                   ELSE  
153                       SHIFT = -0.5                       SHIFT = -0.5
154                      ELSE
155                         SHIFT = +0.5
156                    ENDIF                    ENDIF
157                 ELSE                 ELSE
158                    IF (REVERSE.EQ.0) THEN                    IF (REVERSE.EQ.0) THEN
                      SHIFT = -0.5  
                   ELSE  
159                       SHIFT = +0.5                       SHIFT = +0.5
160                      ELSE
161                         SHIFT = -0.5
162                    ENDIF                    ENDIF
163                 ENDIF                 ENDIF
164  C      C    
# Line 286  C Line 286  C
286  c                  IF (M.EQ.2) NN = 1  c                  IF (M.EQ.2) NN = 1
287                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
288                       IF (REVERSE.EQ.0) THEN                       IF (REVERSE.EQ.0) THEN
                         SHIFT = +0.5  
                      ELSE  
289                          SHIFT = -0.5                          SHIFT = -0.5
290                         ELSE
291                            SHIFT = +0.5
292                       ENDIF                       ENDIF
293                    ELSE                    ELSE
294                       IF (REVERSE.EQ.0) THEN                       IF (REVERSE.EQ.0) THEN
                         SHIFT = -0.5  
                      ELSE  
295                          SHIFT = +0.5                          SHIFT = +0.5
296                         ELSE
297                            SHIFT = -0.5
298                       ENDIF                       ENDIF
299                    ENDIF                    ENDIF
300  C      C    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.23