anchor.diff:  c
           call isort(ja(i+1)-ja(i),ja(ja(i)))
         end do
  -      nmin=nmin+1
  -      nmax=nmax+1
  +cdebug      write(6,*) "After end of loop!"
  +cdebug      call flush(6)
  +cdebug      if(neq.ne.izero) stop
  +      nmin=nmin+ione
  +      nmax=nmax+ione
         if(neq.ne.izero) wavg=wavg/dble(neq)
  +cdebug      write(6,*) "nmin,nmax,wavg,neq:",nmin,nmax,wavg,neq
  +cdebug      call flush(6)
  +cdebug      write(6,*) "ja:",(ja(idb),idb=1,nnz)
  +cdebug      call flush(6)
  +cdebug      if(neq.ne.izero) stop
         return
         end
   c
   c version
  -c $Id: makemsr.f,v 1.2 2004/07/07 18:38:30 willic3 Exp $
  +c $Id: makemsr.f,v 1.3 2004/08/12 01:54:17 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c...  local variables
  c
        integer i,loc,ncol
  c
        call ifill(ja,izero,nnz)
        ja(1)=neq+2
        nmin=ione
        nmax=ione
        wavg=neq
        do i=1,neq
          loc=indx(i)
          ncol=izero
  
negative.code: c...  subroutine arguments
  c
        integer neq,nnz,iwork,nmin,nmax
  cdebug      integer neq,nnz,iwork
        integer ja(nnz),indx(neq),link(iwork),nbrs(iwork)
        double precision wavg
  c
  