/[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.1.1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC revision 1.5 by mocchiut, Mon Jan 22 09:17:00 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 167  C Line 168  C
168              IF (NPCFIT(M).GE.2) THEN              IF (NPCFIT(M).GE.2) THEN
169                 VARCFIT(M) = VARFIT(M)                 VARCFIT(M) = VARFIT(M)
170                 IF (M.EQ.1) THEN                 IF (M.EQ.1) THEN
171                    IMPX = CX                    IMPX = (CX - XALIG)/10.
172                    TANX = TG(1)                    TANX = TG(1)
173                 ELSE                 ELSE
174                    IMPY = CY                    IMPY =( CY - YALIG)/10.
175                    TANY = TG(2)                    TANY = TG(2)
176                 ENDIF                 ENDIF
177  C                C              
178                 DO I = 1,NPLA                     DO I = 1,NPLA    
179                    NN = 0                    NN = 0
180                    IF (M.EQ.2) NN = 1  C????                  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 193  C     Line 194  C    
194                       DISTY = PIANO(I)                                       DISTY = PIANO(I)                
195                       YY(I) = DISTY * TG(2) + CY                       YY(I) = DISTY * TG(2) + CY
196                       BAR(M,I) = YY(I)                       BAR(M,I) = YY(I)
197                       CBAR(M,I) = (YALIG - YY(I))/10.                       CBAR(M,I) = (-YALIG + YY(I))/10.
198  C      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.1.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23