/[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.5 by pam-fi, Tue Nov 7 15:55:11 2006 UTC revision 1.14 by pam-fi, Fri Apr 27 10:39:58 2007 UTC
# Line 6  Line 6 
6  *     - create LEVEL2 ntuple  *     - create LEVEL2 ntuple
7  *  *
8  *************************************************************************  *************************************************************************
9        subroutine analysisflight        subroutine analysisflight(fin)
10    
11        include 'commontracker.f'        include 'commontracker.f'
12        include 'level1.f'        include 'level1.f'
# Line 17  Line 17 
17        include 'calib.f'        include 'calib.f'
18        include 'level2.f'        include 'level2.f'
19    
20    *     input flag
21    *
22          integer fin
23    
24  *     flag to chose PFA  *     flag to chose PFA
25        character*10 PFA        character*10 PFA
26        common/FINALPFA/PFA        common/FINALPFA/PFA
# Line 36  c      parameter (inf=1.e8)      !just a Line 40  c      parameter (inf=1.e8)      !just a
40  ************************************************************  ************************************************************
41  ************************************************************  ************************************************************
42  ************************************************************  ************************************************************
43        PFA='ETA'        PFA='COG4'
44          TRACKMODE = 0
45          FACT = 100.
46          ISTEPMIN = 3
47          if(fin.eq.0)PFA='ETA'
48          if(fin.eq.2)PFA='ETA2'
49          if(fin.eq.3)PFA='ETA3'
50          if(fin.eq.4)PFA='ETA4'
51          if(fin.eq.10)PFA='COG'
52          if(fin.eq.11)PFA='COG1'
53          if(fin.eq.12)PFA='COG2'
54          if(fin.eq.13)PFA='COG'
55    c$$$      PFA='ETA'
56    c$$$      DEBUG=.true.
57    c$$$      DEBUG=.false.
58    
59          if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA
60    
61        if(DEBUG)then        if(DEBUG)then
62           print*,'----------------------------------'           print*,'----------------------------------'
# Line 45  c         print*,'START... ',good1,nclst Line 65  c         print*,'START... ',good1,nclst
65    
66  *------------------------------------------------------  *------------------------------------------------------
67        call init_level2        call init_level2
68          call init_hough
69  *------------------------------------------------------  *------------------------------------------------------
70                
71  *------------------------------------------------------  *------------------------------------------------------
# Line 72  c$$$      endif Line 93  c$$$      endif
93           goto 880               !fill ntp and go to next event               goto 880               !fill ntp and go to next event    
94        endif        endif
95    
96          call fill_hough
97    
98        iflag=0        iflag=0
99        call track_fitting(iflag)        call track_fitting(iflag)
100        if(iflag.eq.1)then        !bad event        if(iflag.eq.1)then        !bad event
# Line 104  c$$$      endif Line 127  c$$$      endif
127        do iv = 1,nviews        do iv = 1,nviews
128           ngood = ngood + good1(iv)           ngood = ngood + good1(iv)
129        enddo        enddo
130        if(ngood.ne.0)print*,'* WARNING * Event '  c$$$      if(ngood.ne.0)print*,'* WARNING * Event '
131       $     ,':LEVEL2 event status: '  c$$$     $     ,':LEVEL2 event status: '
132       $     ,(good2(i),i=1,nviews)  c$$$     $     ,(good2(i),i=1,nviews)
133                
134   8800 continue   8800 continue
135                
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.23