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

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

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

revision 1.24 by pam-fi, Tue May 15 16:22:18 2007 UTC revision 1.25 by pam-fi, Thu May 24 13:29:09 2007 UTC
# Line 667  c$$$         print*,fbad_cog(4,icx) Line 667  c$$$         print*,fbad_cog(4,icx)
667           elseif(PFAx.eq.'ETA2')then           elseif(PFAx.eq.'ETA2')then
668    
669              stripx  = stripx + pfaeta2(icx,angx)                        stripx  = stripx + pfaeta2(icx,angx)          
670              resxPAM = risx_eta2(abs(angx))              resxPAM = risxeta2(abs(angx))
671              resxPAM = resxPAM*fbad_cog(2,icx)              resxPAM = resxPAM*fbad_cog(2,icx)
672              if(DEBUG.and.fbad_cog(2,icx).ne.1)              if(DEBUG.and.fbad_cog(2,icx).ne.1)
673       $           print*,'BAD icx >>> ',viewx,fbad_cog(2,icx)       $           print*,'BAD icx >>> ',viewx,fbad_cog(2,icx)
# Line 675  c$$$         print*,fbad_cog(4,icx) Line 675  c$$$         print*,fbad_cog(4,icx)
675           elseif(PFAx.eq.'ETA3')then                                   elseif(PFAx.eq.'ETA3')then                        
676    
677              stripx  = stripx + pfaeta3(icx,angx)                        stripx  = stripx + pfaeta3(icx,angx)          
678              resxPAM = risx_eta3(abs(angx))                                    resxPAM = risxeta3(abs(angx))                      
679              resxPAM = resxPAM*fbad_cog(3,icx)                            resxPAM = resxPAM*fbad_cog(3,icx)              
680              if(DEBUG.and.fbad_cog(3,icx).ne.1)                          if(DEBUG.and.fbad_cog(3,icx).ne.1)            
681       $           print*,'BAD icx >>> ',viewx,fbad_cog(3,icx)       $           print*,'BAD icx >>> ',viewx,fbad_cog(3,icx)
# Line 683  c$$$         print*,fbad_cog(4,icx) Line 683  c$$$         print*,fbad_cog(4,icx)
683           elseif(PFAx.eq.'ETA4')then                                   elseif(PFAx.eq.'ETA4')then                        
684    
685              stripx  = stripx + pfaeta4(icx,angx)                          stripx  = stripx + pfaeta4(icx,angx)            
686              resxPAM = risx_eta4(abs(angx))                                    resxPAM = risxeta4(abs(angx))                      
687              resxPAM = resxPAM*fbad_cog(4,icx)                            resxPAM = resxPAM*fbad_cog(4,icx)              
688              if(DEBUG.and.fbad_cog(4,icx).ne.1)                            if(DEBUG.and.fbad_cog(4,icx).ne.1)              
689       $           print*,'BAD icx >>> ',viewx,fbad_cog(4,icx)       $           print*,'BAD icx >>> ',viewx,fbad_cog(4,icx)
# Line 786  c$$$         print*,fbad_cog(4,icy) Line 786  c$$$         print*,fbad_cog(4,icy)
786           elseif(PFAy.eq.'ETA2')then           elseif(PFAy.eq.'ETA2')then
787    
788              stripy  = stripy + pfaeta2(icy,angy)                        stripy  = stripy + pfaeta2(icy,angy)          
789              resyPAM = risy_eta2(abs(angy))                            resyPAM = risyeta2(abs(angy))              
790              resyPAM = resyPAM*fbad_cog(2,icy)              resyPAM = resyPAM*fbad_cog(2,icy)
791              if(DEBUG.and.fbad_cog(2,icy).ne.1)              if(DEBUG.and.fbad_cog(2,icy).ne.1)
792       $           print*,'BAD icy >>> ',viewy,fbad_cog(2,icy)       $           print*,'BAD icy >>> ',viewy,fbad_cog(2,icy)
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.23