/[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.1 by mocchiut, Fri May 19 13:15:54 2006 UTC revision 1.4 by pam-fi, Fri Oct 27 16:08:19 2006 UTC
# Line 9  Line 9 
9        subroutine analysisflight        subroutine analysisflight
10    
11        include 'commontracker.f'        include 'commontracker.f'
12          include 'level1.f'
13        include 'common_momanhough.f'        include 'common_momanhough.f'
14        include 'common_mech.f'        include 'common_mech.f'
15        include 'common_xyzPAM.f'        include 'common_xyzPAM.f'
16        include 'common_mini_2.f'        include 'common_mini_2.f'
17        include 'calib.f'        include 'calib.f'
       include 'level1.f'  
18        include 'level2.f'        include 'level2.f'
19    
 c      include 'momanhough_init.f'  
   
 *     flag to set debug mode  
       logical DEBUG  
       common/dbg/DEBUG  
   
20  *     flag to chose PFA  *     flag to chose PFA
21        character*10 PFA        character*10 PFA
22        common/FINALPFA/PFA        common/FINALPFA/PFA
# Line 33  c      parameter (inf=1.e8)      !just a Line 27  c      parameter (inf=1.e8)      !just a
27        external npl        external npl
28        external acoordsi,coordsi,nld,coord,dcoord        external acoordsi,coordsi,nld,coord,dcoord
29    
       DEBUG=.false.!.true.!  
30  ************************************************************  ************************************************************
31  ************************************************************  ************************************************************
32  ************************************************************  ************************************************************
# Line 47  c      parameter (inf=1.e8)      !just a Line 40  c      parameter (inf=1.e8)      !just a
40    
41        if(DEBUG)then        if(DEBUG)then
42           print*,'----------------------------------'           print*,'----------------------------------'
43           print*,'START... ',good1,nclstr1,nclstrmax_level2  c         print*,'START... ',good1,nclstr1,nclstrmax_level2
44        endif        endif
45    
46  *------------------------------------------------------  *------------------------------------------------------
 *     LEVEL2 N-TUPLE INITIALIZATIONS  
47        call init_level2        call init_level2
 c      if(.not.good1)then  
       if(good1.eq.0)then  
          goto 8800              !fill nt-uple and go to next event  
       endif  
48  *------------------------------------------------------  *------------------------------------------------------
49                
50  *------------------------------------------------------  *------------------------------------------------------
51  *     cut on maximum number of clusters  *     cut on maximum number of clusters
52  *------------------------------------------------------  *------------------------------------------------------
53        if(nclstr1.gt.nclstrmax_level2)then  c$$$      if(nclstr1.gt.nclstrmax_level2)then
54           goto 8800              !fill nt-uple and go to next event  c$$$         goto 8800              !fill nt-uple and go to next event
55        endif  c$$$      endif
56                
57        do i=1,nclstr1        do i=1,nclstr1
58           cl_used(i)=0           !init mask of clusters associated to a track           cl_used(i)=0           !init mask of clusters associated to a track
# Line 127  c      if(.not.good1)then Line 115  c      if(.not.good1)then
115  ************************************************************  ************************************************************
116    
117    
 c# include "momanhough-subroutines.f"  
   
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23