/[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.13 by pam-fi, Wed Mar 28 09:09:59 2007 UTC revision 1.16 by pam-fi, Mon Aug 20 16:07:16 2007 UTC
# Line 6  Line 6 
6  *     - create LEVEL2 ntuple  *     - create LEVEL2 ntuple
7  *  *
8  *************************************************************************  *************************************************************************
9        subroutine analysisflight(fin)        subroutine analysisflight
10    
11        include 'commontracker.f'        include 'commontracker.f'
12        include 'level1.f'        include 'level1.f'
# Line 19  Line 19 
19    
20  *     input flag  *     input flag
21  *  *
22  *     0 - PFA = ETA  c      integer fin
 *     1 - PFA = COG4  
       integer fin  
23    
24  *     flag to chose PFA  *     flag to chose PFA
25        character*10 PFA        character*10 PFA
# Line 42  c      parameter (inf=1.e8)      !just a Line 40  c      parameter (inf=1.e8)      !just a
40  ************************************************************  ************************************************************
41  ************************************************************  ************************************************************
42  ************************************************************  ************************************************************
43        PFA='ETA'  c$$$      TRACKMODE = 0
44        TRACKMODE = 0  c$$$      FACT = 100.
45        FACT = 100.  c$$$      ISTEPMIN = 3
46        ISTEPMIN = 3  
47        if(fin.eq.0)PFA='ETA'        call idtoc(pfaid,PFA)
48        if(fin.eq.2)PFA='ETA2'        
49        if(fin.eq.3)PFA='ETA3'  c$$$      PFA='COG4'
50        if(fin.eq.4)PFA='ETA4'  c$$$      if(pfaid.eq.0)PFA='ETA'
51        if(fin.eq.10)PFA='COG'  c$$$      if(pfaid.eq.2)PFA='ETA2'
52        if(fin.eq.11)PFA='COG1'  c$$$      if(pfaid.eq.3)PFA='ETA3'
53        if(fin.eq.12)PFA='COG2'  c$$$      if(pfaid.eq.4)PFA='ETA4'
54        if(fin.eq.13)PFA='COG3'  c$$$      if(pfaid.eq.10)PFA='COG'
55        if(fin.eq.14)PFA='COG4'  c$$$      if(pfaid.eq.11)PFA='COG1'
56    c$$$      if(pfaid.eq.12)PFA='COG2'
57  c$$$      PFA='ETA'  c$$$      if(pfaid.eq.13)PFA='COG3'
58  c$$$      DEBUG=.true.  c$$$      if(pfaid.eq.14)PFA='COG4'
59  c$$$      DEBUG=.false.  ***********************************************************
60    
61        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  c         print*,'START... ',good1,nclstr1,nclstrmax_level2           print*,'Settings: '
66             print*,'PFA                  ',pfaid,' ---> ',PFA
67             print*,'tracking mode        ',trackmode
68             print*,'fit-tolerance factor ',fact
69             print*,'minimum n.step       ',istepmin
70            
71        endif        endif
72    
73  *------------------------------------------------------  *------------------------------------------------------
# Line 83  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 115  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.13  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23