/[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.14 by mocchiut, Mon Mar 26 14:02:08 2007 UTC revision 1.15 by mocchiut, Mon Apr 2 14:42:14 2007 UTC
# Line 372  C Line 372  C
372        RNSS = 0.        RNSS = 0.
373        QTOTT = 0.        QTOTT = 0.
374  C  C
375        PPLANEMAX = 1.01*(LOG(ABS(RIG)/0.0081)-1.)        PPLANEMAX = 1.01*(LOG(ABS(RIG)/0.0081)-1.) / 0.74
376  C  C
377        IPLANE = INT(ANINT(PPLANEMAX)) + 5        IPLANE = INT(ANINT(PPLANEMAX)) + 5
378  C  C
# Line 401  C     8 STRIPS ARE 2.88 cm , A MOLIERE R Line 401  C     8 STRIPS ARE 2.88 cm , A MOLIERE R
401  C      C    
402        DO J = 1,IPLANE        DO J = 1,IPLANE
403           NNX = IBAR(1,J)           NNX = IBAR(1,J)
404             RNSS = 0.               ! BACO!!
405             QTOTT = 0.               ! BACO!!
406           IF (NNX.NE.-1) THEN           IF (NNX.NE.-1) THEN
407              IF (NNX.LT.9) NNX = 9              IF (NNX.LT.9) NNX = 9
408              IF (NNX.GT.88) NNX = 88              IF (NNX.GT.88) NNX = 88
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.23