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

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

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

revision 1.1 by mocchiut, Tue Jan 23 11:52:27 2007 UTC revision 1.2 by mocchiut, Fri Jul 20 08:24:55 2007 UTC
# Line 31  C--------------------------------------- Line 31  C---------------------------------------
31  C  C
32        REAL LUNGH        REAL LUNGH
33        REAL RPIANO(2)        REAL RPIANO(2)
34        REAL BAR(2,NPLA)        REAL BAR(2,NPLAV)
35        REAL NQQ(2*NPLA)        REAL NQQ(2*NPLAV)
36        REAL RIL(NCHA/2)        REAL RIL(NCHA/2)
37        REAL REL(NCHA/2)        REAL REL(NCHA/2)
38        REAL TG(2)        REAL TG(2)
39        INTEGER IBAR(2,NPLA)        INTEGER IBAR(2,NPLAV)
40        INTEGER NTOT(2),LH        INTEGER NTOT(2),LH
41        COMMON / ANGOLO / BAR, IBAR        COMMON / ANGOLO / BAR, IBAR
42        SAVE / ANGOLO /        SAVE / ANGOLO /
# Line 69  C Line 69  C
69  C  C
70          DO J = 1,NPLA          DO J = 1,NPLA
71             IF (MOD(J,2).EQ.0) THEN             IF (MOD(J,2).EQ.0) THEN
72                SHIFT = -0.5                IF (REVERSE.EQ.0) THEN
73                     SHIFT = -0.5
74                  ELSE
75                     SHIFT = +0.5
76                  ENDIF
77             ELSE             ELSE
78                SHIFT = 0.5                IF (REVERSE.EQ.0) THEN
79                     SHIFT = +0.5
80                  ELSE
81                     SHIFT = -0.5
82                  ENDIF
83             ENDIF             ENDIF
84  C  C
85            DO K = 1,NGIR            DO K = 1,NGIR
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23