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

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

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

revision 1.4 by mocchiut, Thu Aug 10 06:32:02 2006 UTC revision 1.6 by mocchiut, Mon Mar 26 14:02:07 2007 UTC
# Line 17  c Line 17  c
17        INTEGER gtr        INTEGER gtr
18        INTEGER j, m, nn, i        INTEGER j, m, nn, i
19        INTEGER IBAR(2,NPLA), NPFIT(2)        INTEGER IBAR(2,NPLA), NPFIT(2)
20        INTEGER Iquest(100)            INTEGER Iquest(100), IWPL(2),CHTRACK
21  c  c
22        COMMON / TAGLIOEN / EINF, ESUP, ENER(2)        COMMON / TAGLIOEN / EINF, ESUP, ENER(2)
23        SAVE / TAGLIOEN /        SAVE / TAGLIOEN /
# Line 37  C Line 37  C
37        COMMON / CH / CHECK        COMMON / CH / CHECK
38        SAVE / CH /        SAVE / CH /
39  C  C
40        COMMON / CALOFIT / VARFIT, NPFIT        COMMON / CALOFIT / VARFIT, NPFIT, IWPL,CHTRACK
41        SAVE / CALOFIT /        SAVE / CALOFIT /
42  C  C
43        COMMON / pawcd / hmemor        COMMON / pawcd / hmemor
# Line 86  C Line 86  C
86        QX22 = 0.        QX22 = 0.
87        QMAX = 0.        QMAX = 0.
88        GTR = 0        GTR = 0
89          CHTRACK = 0
90  C      C    
91        DISTX = 0.        DISTX = 0.
92        DISTY = 0.        DISTY = 0.
# Line 176  C Line 177  C
177  C                C              
178                 DO I = 1,NPLA                     DO I = 1,NPLA    
179                    NN = 0                    NN = 0
180  C????                  IF (M.EQ.2) NN = 1                    IF (M.EQ.2) NN = 1
181                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
182                       SHIFT = +0.5                       SHIFT = +0.5
183                    ELSE                    ELSE
# Line 198  C     Line 199  C    
199                    ENDIF                    ENDIF
200                    CALL LASTRISCIA(BAR(M,I),IBAR(M,I))                    CALL LASTRISCIA(BAR(M,I),IBAR(M,I))
201                    CIBAR(M,I) = IBAR(M,I)                    CIBAR(M,I) = IBAR(M,I)
202                      IF (ibar(m,i).EQ.-1) THEN
203                         CHTRACK = CHTRACK + 1
204                      ELSE
205                         IWPL(M) = IWPL(M) + 1
206                      ENDIF
207                 ENDDO                             ENDDO            
208              ENDIF              ENDIF
209  C  C
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23