anchor.diff:           imod = mod(iter,iprint)
            if (imod .eq. 0) write (6,2001) iter,f,sbgnrm
         endif
  -      if (iprint .ge. 1) write (itfile,3001)
  -     +          iter,nfgv,nseg,nact,word,iback,stp,xstep,sbgnrm,f
  +      
   
    1004 format (/,a4, 1p, 6(1x,d11.4),/,(4x,1p,6(1x,d11.4)))
    2001 format
  
positive.code: c        iprint=99   print details of every iteration except n-vectors;
  c        iprint=100  print also the changes of active set and final x;
  c        iprint>100  print details of every iteration including x and g;
  c       When iprint > 0, the file iterate.dat will be created to
  c                        summarize the iteration.
  c
  c     info is an integer variable.
  c       On entry info is unspecified.
  
negative.code: 
  c======================= The end of prn2lb =============================
  
        subroutine prn3lb(n, x, f, task, iprint, info, 
       +                  iter, nfgv, nintol, nskip, nact, sbgnrm, 
       +                  time, nseg, word, iback, stp, xstep, k, 
       +                  cachyt, sbtime, lnscht)
   
        character*60     task
        character*3      word
        integer          n, iprint, info, iter, nfgv, nintol,
       +                 nskip, nact, nseg, iback, k
        double precision f, sbgnrm, time, stp, xstep, cachyt, sbtime,
       +                 lnscht, x(n)
  