/[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.5 by mocchiut, Thu Jan 16 15:29:13 2014 UTC
# Line 13  C-             LAYERS 6 - 8 . Line 13  C-             LAYERS 6 - 8 .
13  C-  C-
14  C----------------------------------------------------------------------  C----------------------------------------------------------------------
15        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
16        REAL QQQ(NCHA)        REAL QQQ(NCHA), ENE, BAR
17          INTEGER IERR1
18    
19          COMMON / SHIFT / SHIFT
20          SAVE / SHIFT /
21          DATA ENE / 0. /
22          DATA BAR / 0. /
23          DATA IERR1 / 0 /
24    C
25          ENE = 0.
26          BAR = 0.
27          IERR1 = 0
28  C  C
29        DO J = 1,2        DO J = 1,2
30          DO N = 1,2          DO N = 1,2
# Line 42  C Line 52  C
52              ENDDO              ENDDO
53            ENDDO            ENDDO
54  C  C
55            IGIRO = 0.            IGIRO = 0
56  C  C
57     50     CONTINUE     50     CONTINUE
58            MAX = LVMAX(QQQ,NCHA)            MAX = LVMAX(QQQ,NCHA)
# Line 63  C Line 73  C
73     66     CONTINUE     66     CONTINUE
74            IA = MSTR + 1            IA = MSTR + 1
75  C  C
76              NN = 0          
77              IF (MOD(J,2).EQ.NN) THEN
78                 IF (REVERSE.EQ.0) THEN
79                    SHIFT = -0.5
80                 ELSE
81                    SHIFT = +0.5
82                 ENDIF
83              ELSE
84                 IF (REVERSE.EQ.0) THEN
85                    SHIFT = +0.5
86                 ELSE
87                    SHIFT = -0.5
88                 ENDIF          
89              ENDIF          
90    C
91            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)            CALL BARIC(QQQ,IA,IB,BAR,ENE,IERR1)
92            IGIRO = IGIRO + 1            IGIRO = IGIRO + 1
93            IGI = IGIRO + NCHA / 2            IGI = IGIRO + NCHA / 2          
94            CLUS2(N,J,IGIRO) = BAR            CLUS2(N,J,IGIRO) = BAR
95            CLUS2(N,J,IGI) = ENE            CLUS2(N,J,IGI) = ENE
96  C  C
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23