anchor.diff:        if (info .ne. 0) then 
   c          nonpositive definiteness in Cholesky factorization;
   c          refresh the lbfgs memory and restart the iteration.
  -         if(iprint .ge. 1) write (6, 1007)
  +         if(iprint .ge. 1) write (0, 1007)
            info = 0
            col = 0
            head = 1
  
positive.code:       if (info .ne. 0) then 
  c          singular triangular system detected;
  c          refresh the lbfgs memory and restart the iteration.
           if(iprint .ge. 1) write (6, 1005)
           info   = 0
           col    = 0
           head   = 1
  
negative.code:      +            iprint, sbgnrm, info, epsmch)
        if (info .ne. 0) then 
  c         singular triangular system detected; refresh the lbfgs memory.
           if(iprint .ge. 1) write (0, 1005)
           info   = 0
           col    = 0
           head   = 1
  