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

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

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

revision 1.20 by mocchiut, Mon Sep 29 12:40:42 2008 UTC revision 1.21 by mocchiut, Fri Dec 19 13:39:34 2008 UTC
# Line 21  C Line 21  C
21        REAL ax,bx,eax,ebx,chi2x        REAL ax,bx,eax,ebx,chi2x
22        REAL ay,by,eay,eby,chi2y        REAL ay,by,eay,eby,chi2y
23        REAL parzen3, TMISD        REAL parzen3, TMISD
24        INTEGER Nfitx,Nfity        INTEGER Nfitx,Nfity, MNPLA
25  C  C
26        INTEGER INDEX, NTOT(2), NPIANI, GTR        INTEGER INDEX, NTOT(2), NPIANI, GTR
27        INTEGER j, m, i, IWPL(2), timpx, timpy, T, nn        INTEGER j, m, i, IWPL(2), timpx, timpy, T, nn
# Line 607  C Line 607  C
607  C      C    
608  C     CALCULATE NLAST AND QLAST  C     CALCULATE NLAST AND QLAST
609  C  C
610        DO J = NPLA-4,NPLA        MNPLA = NPLA -4
611          IF ( MNPLA .LT. 1 ) MNPLA = 1
612          DO J = MNPLA,NPLA
613           NNX = IBAR(1,J)           NNX = IBAR(1,J)
614           IF (NNX.NE.-1) THEN           IF (NNX.NE.-1) THEN
615              IF (NNX.LT.5) NNX = 5              IF (NNX.LT.5) NNX = 5
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.23