/[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.10 by pam-fi, Fri Feb 16 14:56:02 2007 UTC revision 1.14 by pam-fi, Fri Apr 27 10:39:58 2007 UTC
# Line 19  Line 19 
19    
20  *     input flag  *     input flag
21  *  *
 *     0 - PFA = ETA  
 *     1 - PFA = COG4  
22        integer fin        integer fin
23    
24  *     flag to chose PFA  *     flag to chose 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'        PFA='COG4'
44          TRACKMODE = 0
45          FACT = 100.
46          ISTEPMIN = 3
47        if(fin.eq.0)PFA='ETA'        if(fin.eq.0)PFA='ETA'
48        if(fin.eq.2)PFA='ETA2'        if(fin.eq.2)PFA='ETA2'
49        if(fin.eq.3)PFA='ETA3'        if(fin.eq.3)PFA='ETA3'
# Line 50  c      parameter (inf=1.e8)      !just a Line 51  c      parameter (inf=1.e8)      !just a
51        if(fin.eq.10)PFA='COG'        if(fin.eq.10)PFA='COG'
52        if(fin.eq.11)PFA='COG1'        if(fin.eq.11)PFA='COG1'
53        if(fin.eq.12)PFA='COG2'        if(fin.eq.12)PFA='COG2'
54        if(fin.eq.13)PFA='COG3'        if(fin.eq.13)PFA='COG'
       if(fin.eq.14)PFA='COG4'  
   
55  c$$$      PFA='ETA'  c$$$      PFA='ETA'
56  c$$$      DEBUG=.true.  c$$$      DEBUG=.true.
57    c$$$      DEBUG=.false.
58    
59        if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA        if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA
60    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.23