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

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

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

revision 1.3 by mocchiut, Thu Nov 29 14:20:31 2007 UTC revision 1.4 by mocchiut, Thu Nov 29 16:11:53 2007 UTC
# Line 78  C Line 78  C
78  c          IF (N.EQ.2) NN = 1  c          IF (N.EQ.2) NN = 1
79            IF (MOD(J,2).EQ.NN) THEN            IF (MOD(J,2).EQ.NN) THEN
80               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = +0.5  
              ELSE  
81                  SHIFT = -0.5                  SHIFT = -0.5
82                 ELSE
83                    SHIFT = +0.5
84               ENDIF               ENDIF
85            ELSE            ELSE
86               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = -0.5  
              ELSE  
87                  SHIFT = +0.5                  SHIFT = +0.5
88                 ELSE
89                    SHIFT = -0.5
90               ENDIF                         ENDIF          
91            ENDIF            ENDIF
92            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23