--- DarthVader/CalorimeterLevel2/src/calol2tr.for 2006/05/30 14:57:59 1.2 +++ DarthVader/CalorimeterLevel2/src/calol2tr.for 2006/05/31 09:31:11 1.3 @@ -121,7 +121,7 @@ al_p(m) = al_pp(t,m) enddo if (al_p(5).eq.0.) THEN - PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded' + PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded' GOOD2 = 0 GOTO 969 ENDIF @@ -142,7 +142,7 @@ call DOTRACK(NPLA,ZIN,XOUT,YOUT,AL_P,IFAIL) if(IFAIL.ne.0)then GOOD2 = 0 - print *,' CALORIMETER - WARNING F77: tracking failed ' +c print *,' CALORIMETER - WARNING F77: tracking failed ' goto 969 endif TX = TAN(ASIN(AL_P(3))) * COS(AL_P(4)) @@ -159,8 +159,8 @@ C CHECK IF XOUT OR YOUT ARE NaN C IF (XOUT(I).NE.XOUT(I).OR.YOUT(I).NE.YOUT(I)) THEN - print *, - & ' CALORIMETER - WARNING F77: tracking error (NaN values)' +c print *, +c & ' CALORIMETER - WARNING F77: tracking error (NaN values)' GOOD2 = 0 GOTO 969 ENDIF @@ -306,7 +306,7 @@ C IF (CHTRACK.EQ.44) THEN GOOD2 = 0 - PRINT *,' CALORIMETER - WARNING F77: track outside calorimeter' +c PRINT *,' CALORIMETER - WARNING F77: track outside calorimeter' GOTO 50 ELSE IF ( IWPL(1).LE.IWPL(2) ) THEN