/[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.1 by mocchiut, Fri May 19 13:15:50 2006 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 63  C Line 65  C
65     66     CONTINUE     66     CONTINUE
66            IA = MSTR + 1            IA = MSTR + 1
67  C  C
68              NN = 0          
69              IF (MOD(J,2).EQ.NN) THEN
70                 IF (REVERSE.EQ.0) THEN
71                    SHIFT = -0.5
72                 ELSE
73                    SHIFT = +0.5
74                 ENDIF
75              ELSE
76                 IF (REVERSE.EQ.0) THEN
77                    SHIFT = +0.5
78                 ELSE
79                    SHIFT = -0.5
80                 ENDIF          
81              ENDIF          
82    C
83            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
84            IGIRO = IGIRO + 1            IGIRO = IGIRO + 1
85            IGI = IGIRO + NCHA / 2            IGI = IGIRO + NCHA / 2
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23