/[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.11 by pam-fi, Tue Nov 7 15:55:11 2006 UTC revision 1.13 by pam-fi, Wed Nov 8 16:42:28 2006 UTC
# Line 297  c$$$         if(ibest.eq.0)goto 880 !>> Line 297  c$$$         if(ibest.eq.0)goto 880 !>>
297    
298           iprint=0           iprint=0
299  c         if(DEBUG)iprint=1  c         if(DEBUG)iprint=1
300           if(.true.)iprint=1           if(VERBOSE)iprint=1
301           call mini2(jstep,ifail,iprint)           call mini2(jstep,ifail,iprint)
302           if(ifail.ne.0) then           if(ifail.ne.0) then
303              if(.true.)then              if(.true.)then
# Line 305  c         if(DEBUG)iprint=1 Line 305  c         if(DEBUG)iprint=1
305       $              '*** MINIMIZATION FAILURE *** (after refinement) '       $              '*** MINIMIZATION FAILURE *** (after refinement) '
306       $              ,iev       $              ,iev
307    
308                 print*,'guess:   ',(al_guess(i),i=1,5)  c$$$               print*,'guess:   ',(al_guess(i),i=1,5)
309                 print*,'previous: ',(al_store(i,icand),i=1,5)  c$$$               print*,'previous: ',(al_store(i,icand),i=1,5)
310                 print*,'result:   ',(al(i),i=1,5)  c$$$               print*,'result:   ',(al(i),i=1,5)
311                 print*,'xgood ',xgood  c$$$               print*,'xgood ',xgood
312                 print*,'ygood ',ygood  c$$$               print*,'ygood ',ygood
313                 print*,'----------------------------------------------'  c$$$               print*,'----------------------------------------------'
314              endif              endif
315  c            chi2=-chi2  c            chi2=-chi2
316           endif           endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.23