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

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

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

revision 1.1 by mocchiut, Fri May 19 13:15:51 2006 UTC revision 1.4 by mocchiut, Tue Aug 4 14:01:21 2009 UTC
# Line 18  C--------------------------------------- Line 18  C---------------------------------------
18        INCLUDE 'INTEST.TXT'        INCLUDE 'INTEST.TXT'
19  C  C
20        INTEGER LK(2)        INTEGER LK(2)
21        INTEGER IBAR(2,NPLA)        INTEGER IBAR(2,NPLAV)
22        INTEGER ITL        INTEGER ITL,I,LPIANO
23        REAL RX(2),RY(2)        REAL RX(2),RY(2)
24        REAL RIL(NCHA/2)        REAL RIL(NCHA/2)
25        REAL BAR(2,NPLA)        REAL BAR(2,NPLAV)
26        REAL TG(2)        REAL TG(2)
27        REAL DAD        REAL DAD
28        COMMON / VARIE / MAX        COMMON / VARIE / MAX
# Line 37  C Line 37  C
37        SAVE / TANGENTI /        SAVE / TANGENTI /
38        COMMON / ANGOLO / BAR, IBAR        COMMON / ANGOLO / BAR, IBAR
39        SAVE / ANGOLO /        SAVE / ANGOLO /
40          DATA DAD / 0. /
41  C  C
42        LPIANO = NPLA / 2        LPIANO = NPLA / 2
43  c  c
# Line 44  c Line 45  c
45  C  C
46        ITL = 0        ITL = 0
47        IALFA = 0        IALFA = 0
48    499 CONTINUE        CONTINUE
49  C  C
50        DO I = 1,NCHA/2        DO I = 1,NCHA/2
51          RIL(I) = 1000.          RIL(I) = 1000.
52        ENDDO        ENDDO
53  C  C
54          DAD = 0.
55        RX(1) = 0.        RX(1) = 0.
56        RX(2) = 0.        RX(2) = 0.
57        RY(1) = 0.        RY(1) = 0.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23