--- DarthVader/TrackerLevel2/src/F77/analysisflight.f 2007/05/14 11:03:06 1.15 +++ DarthVader/TrackerLevel2/src/F77/analysisflight.f 2007/08/20 16:07:16 1.16 @@ -58,15 +58,16 @@ c$$$ if(pfaid.eq.14)PFA='COG4' *********************************************************** -c if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA +c if(DEBUG.EQ.1)PRINT*,'P.F.A. --> ',fin,PFA - if(DEBUG)then + if(DEBUG.EQ.1)then print*,'----------------------------------' print*,'Settings: ' - print*,'PFA ',pfaid,PFA + print*,'PFA ',pfaid,' ---> ',PFA print*,'tracking mode ',trackmode print*,'fit-tolerance factor ',fact print*,'minimum n.step ',istepmin + endif *------------------------------------------------------ @@ -85,10 +86,10 @@ cl_used(i)=0 !init mask of clusters associated to a track enddo - if(DEBUG)then - print*,'----------------------------------' - print*,iev,' ** ',nev2 - endif +c$$$ if(DEBUG.EQ.1)then +c$$$ print*,'----------------------------------' +c$$$ print*,iev,' ** ',nev2 +c$$$ endif * /////////////////////////////////////////////// * \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ @@ -117,7 +118,7 @@ call fill_level2_siglets - if(DEBUG)then + if(DEBUG.EQ.1)then print*,'' print*,'DONE!'