/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/analysisflight.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/analysisflight.f

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

revision 1.15 by pam-fi, Mon May 14 11:03:06 2007 UTC revision 1.16 by pam-fi, Mon Aug 20 16:07:16 2007 UTC
# Line 58  c$$$      if(pfaid.eq.13)PFA='COG3' Line 58  c$$$      if(pfaid.eq.13)PFA='COG3'
58  c$$$      if(pfaid.eq.14)PFA='COG4'  c$$$      if(pfaid.eq.14)PFA='COG4'
59  ***********************************************************  ***********************************************************
60    
61  c      if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA  c      if(DEBUG.EQ.1)PRINT*,'P.F.A. --> ',fin,PFA
62    
63        if(DEBUG)then        if(DEBUG.EQ.1)then
64           print*,'----------------------------------'           print*,'----------------------------------'
65           print*,'Settings: '           print*,'Settings: '
66           print*,'PFA                  ',pfaid,PFA           print*,'PFA                  ',pfaid,' ---> ',PFA
67           print*,'tracking mode        ',trackmode           print*,'tracking mode        ',trackmode
68           print*,'fit-tolerance factor ',fact           print*,'fit-tolerance factor ',fact
69           print*,'minimum n.step       ',istepmin           print*,'minimum n.step       ',istepmin
70            
71        endif        endif
72    
73  *------------------------------------------------------  *------------------------------------------------------
# Line 85  c$$$      endif Line 86  c$$$      endif
86           cl_used(i)=0           !init mask of clusters associated to a track           cl_used(i)=0           !init mask of clusters associated to a track
87        enddo        enddo
88                
89        if(DEBUG)then  c$$$      if(DEBUG.EQ.1)then
90           print*,'----------------------------------'  c$$$         print*,'----------------------------------'
91           print*,iev,'   ** ',nev2  c$$$         print*,iev,'   ** ',nev2
92        endif  c$$$      endif
93    
94  *     ///////////////////////////////////////////////  *     ///////////////////////////////////////////////
95  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  *     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
# Line 117  c$$$      endif Line 118  c$$$      endif
118    
119        call fill_level2_siglets        call fill_level2_siglets
120                
121        if(DEBUG)then        if(DEBUG.EQ.1)then
122                            
123           print*,''           print*,''
124           print*,'DONE!'           print*,'DONE!'
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23