/[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.11 by pam-fi, Mon Feb 19 16:28:39 2007 UTC revision 1.13 by pam-fi, Wed Mar 28 09:09:59 2007 UTC
# Line 44  c      parameter (inf=1.e8)      !just a Line 44  c      parameter (inf=1.e8)      !just a
44  ************************************************************  ************************************************************
45        PFA='ETA'        PFA='ETA'
46        TRACKMODE = 0        TRACKMODE = 0
47          FACT = 100.
48          ISTEPMIN = 3
49        if(fin.eq.0)PFA='ETA'        if(fin.eq.0)PFA='ETA'
50        if(fin.eq.2)PFA='ETA2'        if(fin.eq.2)PFA='ETA2'
51        if(fin.eq.3)PFA='ETA3'        if(fin.eq.3)PFA='ETA3'
# Line 56  c      parameter (inf=1.e8)      !just a Line 58  c      parameter (inf=1.e8)      !just a
58    
59  c$$$      PFA='ETA'  c$$$      PFA='ETA'
60  c$$$      DEBUG=.true.  c$$$      DEBUG=.true.
61    c$$$      DEBUG=.false.
62    
63        if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA        if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA
64    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.23