/[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.3 by mocchiut, Thu Nov 29 16:11:54 2007 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        COMMON / SHIFT / SHIFT
20        SAVE / SHIFT /        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 44  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 82  C Line 90  C
90  C  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.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23