/[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.13 by mocchiut, Sat Jan 27 06:22:19 2007 UTC revision 1.15 by mocchiut, Mon Apr 2 14:42:14 2007 UTC
# Line 142  c               print *,' CALORIMETER - Line 142  c               print *,' CALORIMETER -
142              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))              TY = TAN(ASIN(AL_P(3))) * SIN(AL_P(4))
143              DO I = 1, NPLA              DO I = 1, NPLA
144                 NN = 0                 NN = 0
145  C?????               IF (M.EQ.2) NN = 1                 IF (M.EQ.2) NN = 1
146                 IF (MOD(I,2).EQ.NN) THEN                 IF (MOD(I,2).EQ.NN) THEN
147                    SHIFT = +0.5                    SHIFT = +0.5
148                 ELSE                 ELSE
# Line 268  c            print *,' bx ',bx,' by ',by Line 268  c            print *,' bx ',bx,' by ',by
268  C  C
269                 DO I = 1,NPLA                     DO I = 1,NPLA    
270                    NN = 0                    NN = 0
271  C?????                  IF (M.EQ.2) NN = 1                    IF (M.EQ.2) NN = 1
272                    IF (MOD(I,2).EQ.NN) THEN                    IF (MOD(I,2).EQ.NN) THEN
273                       SHIFT = +0.5                       SHIFT = +0.5
274                    ELSE                    ELSE
# 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.13  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.23