/[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.2 by mocchiut, Fri Jul 20 08:24:54 2007 UTC revision 1.3 by mocchiut, Fri Dec 12 16:18:22 2008 UTC
# Line 19  C--------------------------------------- Line 19  C---------------------------------------
19  C  C
20        INTEGER LK(2)        INTEGER LK(2)
21        INTEGER IBAR(2,NPLAV)        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,NPLAV)        REAL BAR(2,NPLAV)
# 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 50  C Line 51  C
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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23