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

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

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

revision 1.2 by mocchiut, Thu Nov 29 14:20:32 2007 UTC revision 1.3 by mocchiut, Thu Nov 29 16:11:54 2007 UTC
# Line 15  C--------------------------------------- Line 15  C---------------------------------------
15        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
16        REAL QQQ(NCHA)        REAL QQQ(NCHA)
17    
18          COMMON / SHIFT / SHIFT
19          SAVE / SHIFT /
20  C  C
21        DO J = 1,2        DO J = 1,2
22          DO N = 1,2          DO N = 1,2
# Line 66  C Line 68  C
68            NN = 0                      NN = 0          
69            IF (MOD(J,2).EQ.NN) THEN            IF (MOD(J,2).EQ.NN) THEN
70               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = +0.5  
              ELSE  
71                  SHIFT = -0.5                  SHIFT = -0.5
72                 ELSE
73                    SHIFT = +0.5
74               ENDIF               ENDIF
75            ELSE            ELSE
76               IF (REVERSE.EQ.0) THEN               IF (REVERSE.EQ.0) THEN
                 SHIFT = -0.5  
              ELSE  
77                  SHIFT = +0.5                  SHIFT = +0.5
78                 ELSE
79                    SHIFT = -0.5
80               ENDIF                         ENDIF          
81            ENDIF                      ENDIF          
82  C  C
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23