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...  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
  