/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/functionspfa.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/functionspfa.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Fri May 19 13:15:55 2006 UTC revision 1.2 by pam-fi, Tue May 30 16:30:37 2006 UTC
# Line 149  c      real function pfa_eta2(cog2,view, Line 149  c      real function pfa_eta2(cog2,view,
149        real cog2,angle        real cog2,angle
150        integer iview,lad        integer iview,lad
151    
152        logical DEBUG  c      logical DEBUG
153        common/dbg/DEBUG  c      common/dbg/DEBUG
154    
155        iview = VIEW(ic)              !(1)        iview = VIEW(ic)              !(1)
156        lad = nld(MAXS(ic),VIEW(ic)) !(1)        lad = nld(MAXS(ic),VIEW(ic)) !(1)
# Line 273  c      real function pfa_eta3(cog3,view, Line 273  c      real function pfa_eta3(cog3,view,
273        real cog3,angle        real cog3,angle
274        integer iview,lad        integer iview,lad
275    
276        logical DEBUG  c      logical DEBUG
277        common/dbg/DEBUG  c      common/dbg/DEBUG
278    
279    
280        iview = VIEW(ic)              !(1)        iview = VIEW(ic)              !(1)
# Line 396  c      real function pfa_eta4(cog4,view, Line 396  c      real function pfa_eta4(cog4,view,
396        real cog4,angle        real cog4,angle
397        integer iview,lad        integer iview,lad
398    
399        logical DEBUG  c      logical DEBUG
400        common/dbg/DEBUG  c      common/dbg/DEBUG
401    
402        iview = VIEW(ic)              !(1)        iview = VIEW(ic)              !(1)
403        lad = nld(MAXS(ic),VIEW(ic)) !(1)        lad = nld(MAXS(ic),VIEW(ic)) !(1)
# Line 613  c      print *,ncog,ic,cog,'//////////// Line 613  c      print *,ncog,ic,cog,'////////////
613        include 'calib.f'        include 'calib.f'
614        include 'level1.f'        include 'level1.f'
615                
616        logical DEBUG  c      logical DEBUG
617        common/dbg/DEBUG  c      common/dbg/DEBUG
618    
619    
620        if (ncog.gt.0) then        if (ncog.gt.0) then
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23