anchor.diff:           updatd = lsave(4)
   
            nintol = isave(1)
  -         itfile = isave(3)
            iback  = isave(4)
            nskip  = isave(5)
            head   = isave(6)
  
positive.code:          endif
           if (iprint .ge. 1) write (6,3007) cachyt,sbtime,lnscht
           write (6,3008) time
           if (iprint .ge. 1) then
              if (info .eq. -4 .or. info .eq. -9) then
                 write (itfile,3002)
       +             iter,nfgv,nseg,nact,word,iback,stp,xstep
              endif
              write (itfile,3009) task
              if (info .ne. 0) then
                 if (info .eq. -1) write (itfile,9011)
                 if (info .eq. -2) write (itfile,9012)
                 if (info .eq. -3) write (itfile,9013)
                 if (info .eq. -4) write (itfile,9014)
                 if (info .eq. -5) write (itfile,9015)
                 if (info .eq. -8) write (itfile,9018)
                 if (info .eq. -9) write (itfile,9019)
              endif
              write (itfile,3008) time
           endif
        endif
  
   1004 format (/,a4, 1p, 6(1x,d11.4),/,(4x,1p,6(1x,d11.4)))
  
negative.code:  999  continue
        call timer(time2)
        time = time2 - time1
        call prn3lb(n,x,f,task,iprint,info,
       +            iter,nfgv,nintol,nskip,nact,sbgnrm,
       +            time,nseg,word,iback,stp,xstep,k,
       +            cachyt,sbtime,lnscht)
  