/[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.2 by mocchiut, Fri Jul 20 08:24:53 2007 UTC revision 1.5 by mocchiut, Thu Jan 16 15:29:12 2014 UTC
# Line 49  c              print *,' N ',N,' J ',J,' Line 49  c              print *,' N ',N,' J ',J,'
49              ENDIF              ENDIF
50            ENDDO            ENDDO
51  C  C
52            IGIRO = 0.            IGIRO = 0
53  C  C
54     50     CONTINUE     50     CONTINUE
55  C  C
# Line 75  C Line 75  C
75            IA = MSTR + 1            IA = MSTR + 1
76  C  C
77            NN = 0            NN = 0
78            IF (M.EQ.2) NN = 1  c          IF (N.EQ.2) NN = 1
79            IF (MOD(I,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.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23