anchor.diff:            end if
   
          end do
  +
  +       if ( flag .ne. 0 ) exit
   
          if ( verbose ) WRITE(*,908) fz,hznorm,min(n,MAXNEL), &
                         (x(i), i = 1,min(MAXNEL,n))
  
positive.code: 
         ! Update current feasibility
         
         currfeas = max(epsfeas, min(currfeas, (1.0D0 - ALPHA) * hxnorm))
  
         if ( verbose ) write(*,905)
  
  
negative.code: 
            call restore(n,x,l,u,me,mi,aevalc,aevaljac,currfeas,verbose, &
                 hznorm,flag)
  
            if ( flag .ne. 0 ) then
               Write(*,*) 'Problems in the restoration solver.'
               exit
            end if
            
            if ( hznorm .gt. currfeas ) then
               write(*,*) 'Unable to reach desired feasibility.'
               flag = 4
               exit
            end if
  
            call aevalf(n,x,fz,flag)
  
  