/[PAMELA software]/DarthVader/CalorimeterLevel2/src/cluster4.for
ViewVC logotype

Diff of /DarthVader/CalorimeterLevel2/src/cluster4.for

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Fri Aug 10 08:01:27 2007 UTC revision 1.2 by mocchiut, Thu Nov 29 16:11:54 2007 UTC
# Line 76  C Line 76  C
76            IA = MSTR + 1            IA = MSTR + 1
77  C  C
78            NN = 0            NN = 0
79            IF (M.EQ.2) NN = 1  c          IF (M.EQ.2) NN = 1
80            IF (MOD(I,2).EQ.NN) THEN  c          IF (MOD(I,2).EQ.NN) THEN
81              IF (MOD(J,2).EQ.NN) THEN
82               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = +0.5  
              ELSE  
83                  SHIFT = -0.5                  SHIFT = -0.5
84                 ELSE
85                    SHIFT = +0.5
86               ENDIF               ENDIF
87            ELSE            ELSE
88               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = -0.5  
              ELSE  
89                  SHIFT = +0.5                  SHIFT = +0.5
90                 ELSE
91                    SHIFT = -0.5
92               ENDIF                         ENDIF          
93            ENDIF            ENDIF
94            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23