anchor.diff:  c
         subroutine makemsr(ja,indx,link,nbrs,neq,nnz,iwork,nmin,nmax,
        & wavg)
  +cdebug      subroutine makemsr(ja,indx,link,nbrs,neq,nnz,iwork)
   c
   c      program to transform linked list into modified sparse row format
   c
  
positive.code: c
          call isort(ja(i+1)-ja(i),ja(ja(i)))
        end do
        nmin=nmin+1
        nmax=nmax+1
        if(neq.ne.izero) wavg=wavg/dble(neq)
        return
        end
  c
  c version
  c $Id: makemsr.f,v 1.2 2004/07/07 18:38:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
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
  