/[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.9 by pam-fi, Tue Nov 21 14:00:40 2006 UTC revision 1.10 by pam-fi, Fri Feb 16 14:56:02 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    *     0 - PFA = ETA
23    *     1 - PFA = COG4
24          integer fin
25    
26  *     flag to chose PFA  *     flag to chose PFA
27        character*10 PFA        character*10 PFA
28        common/FINALPFA/PFA        common/FINALPFA/PFA
# Line 37  c      parameter (inf=1.e8)      !just a Line 43  c      parameter (inf=1.e8)      !just a
43  ************************************************************  ************************************************************
44  ************************************************************  ************************************************************
45        PFA='ETA'        PFA='ETA'
46          if(fin.eq.0)PFA='ETA'
47          if(fin.eq.2)PFA='ETA2'
48          if(fin.eq.3)PFA='ETA3'
49          if(fin.eq.4)PFA='ETA4'
50          if(fin.eq.10)PFA='COG'
51          if(fin.eq.11)PFA='COG1'
52          if(fin.eq.12)PFA='COG2'
53          if(fin.eq.13)PFA='COG3'
54          if(fin.eq.14)PFA='COG4'
55    
56    c$$$      PFA='ETA'
57    c$$$      DEBUG=.true.
58    
59          if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA
60    
61        if(DEBUG)then        if(DEBUG)then
62           print*,'----------------------------------'           print*,'----------------------------------'
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23