/[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.10 by mocchiut, Thu Nov 29 14:20:30 2007 UTC revision 1.11 by mocchiut, Thu Nov 29 16:11:52 2007 UTC
# Line 202  C                  NN = 1 Line 202  C                  NN = 1
202  C                  IF (M.EQ.2) NN = 1  C                  IF (M.EQ.2) NN = 1
203                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
204                       IF (REVERSE.EQ.0) THEN                       IF (REVERSE.EQ.0) THEN
                         SHIFT = +0.5  
                      ELSE  
205                          SHIFT = -0.5                          SHIFT = -0.5
206                         ELSE
207                            SHIFT = +0.5
208                       ENDIF                       ENDIF
209                    ELSE                    ELSE
210                       IF (REVERSE.EQ.0) THEN                       IF (REVERSE.EQ.0) THEN
                         SHIFT = -0.5  
                      ELSE  
211                          SHIFT = +0.5                          SHIFT = +0.5
212                         ELSE
213                            SHIFT = -0.5
214                       ENDIF                       ENDIF
215                    ENDIF                    ENDIF
216  C      C    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.23