/[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.15 by pam-fi, Tue Nov 21 17:13:31 2006 UTC revision 1.16 by pam-fi, Thu Nov 30 17:04:27 2006 UTC
# Line 326  c$$$         enddo Line 326  c$$$         enddo
326           iprint=0           iprint=0
327  c         if(DEBUG)iprint=1  c         if(DEBUG)iprint=1
328           if(VERBOSE)iprint=1           if(VERBOSE)iprint=1
329             if(DEBUG)iprint=2
330           call mini2(jstep,ifail,iprint)           call mini2(jstep,ifail,iprint)
331           if(ifail.ne.0) then           if(ifail.ne.0) then
332              if(.true.)then              if(VERBOSE)then
333                 print *,                 print *,
334       $              '*** MINIMIZATION FAILURE *** (after refinement) '       $              '*** MINIMIZATION FAILURE *** (after refinement) '
335       $              ,iev       $              ,iev
# Line 2487  c$$$                              enddo Line 2488  c$$$                              enddo
2488                                jstep=0 !number of  minimization steps                                jstep=0 !number of  minimization steps
2489                                iprint=0                                iprint=0
2490  c                              if(DEBUG)iprint=1  c                              if(DEBUG)iprint=1
2491                                if(DEBUG)iprint=1                                if(DEBUG)iprint=2
2492                                call mini2(jstep,ifail,iprint)                                call mini2(jstep,ifail,iprint)
2493                                if(ifail.ne.0) then                                if(ifail.ne.0) then
2494                                   if(DEBUG)then                                   if(DEBUG)then
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.23