/[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.21 by pam-fi, Fri Aug 31 14:56:52 2007 UTC revision 1.22 by pam-fi, Tue Sep 4 09:47:49 2007 UTC
# Line 622  c      if(mod(int(VIEW(ic)),2).eq.1)then Line 622  c      if(mod(int(VIEW(ic)),2).eq.1)then
622        enddo        enddo
623        if(DEBUG.EQ.1)        if(DEBUG.EQ.1)
624       $     print*,'pfaeta2 *** warning *** angle out of range: ',angle       $     print*,'pfaeta2 *** warning *** angle out of range: ',angle
625        if(angle.lt.angL(1))iang=1        if(angle.le.angL(1))iang=1
626        if(angle.gt.angR(nangbin))iang=nangbin        if(angle.ge.angR(nangbin))iang=nangbin
627   98   continue                  !jump here if ok   98   continue                  !jump here if ok
628    
629    
# Line 740  c         print*,'~~~~~~~~~~~~ ',iang,an Line 740  c         print*,'~~~~~~~~~~~~ ',iang,an
740        enddo        enddo
741        if(DEBUG.EQ.1)        if(DEBUG.EQ.1)
742       $     print*,'pfaeta3 *** warning *** angle out of range: ',angle       $     print*,'pfaeta3 *** warning *** angle out of range: ',angle
743        if(angle.lt.angL(1))iang=1        if(angle.le.angL(1))iang=1
744        if(angle.gt.angR(nangbin))iang=nangbin        if(angle.ge.angR(nangbin))iang=nangbin
745   98   continue                  !jump here if ok   98   continue                  !jump here if ok
746    
747    
# Line 856  c         print*,'~~~~~~~~~~~~ ',iang,an Line 856  c         print*,'~~~~~~~~~~~~ ',iang,an
856        enddo        enddo
857        if(DEBUG.EQ.1)        if(DEBUG.EQ.1)
858       $     print*,'pfaeta4 *** warning *** angle out of range: ',angle       $     print*,'pfaeta4 *** warning *** angle out of range: ',angle
859        if(angle.lt.angL(1))iang=1        if(angle.le.angL(1))iang=1
860        if(angle.gt.angR(nangbin))iang=nangbin        if(angle.ge.angR(nangbin))iang=nangbin
861   98   continue                  !jump here if ok   98   continue                  !jump here if ok
862    
863    
# Line 1961  c$$$ Line 1961  c$$$
1961        enddo        enddo
1962        if(DEBUG.eq.1)        if(DEBUG.eq.1)
1963       $     print*,'pfacorr *** warning *** angle out of range: ',angle       $     print*,'pfacorr *** warning *** angle out of range: ',angle
1964        if(angle.lt.angL(1))iang=1        if(angle.le.angL(1))iang=1
1965        if(angle.gt.angR(nangbin))iang=nangbin        if(angle.ge.angR(nangbin))iang=nangbin
1966   98   continue                  !jump here if ok   98   continue                  !jump here if ok
1967    
1968        pfacorr = fcorr(iview,lad,iang)        pfacorr = fcorr(iview,lad,iang)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.23