anchor.diff:  c
   c...  local variables
   c
  -      integer inext,n,i,irow,loc,j,icol,loctmp,ival,locsav,nnz
  +      integer inext,iel,indien,ietype,nee,neeq,i,ii,irow,loc,j,jj,icol
  +      integer loctmp,ival,locsav
   c
   cdebug      write(6,*) "Hello from lnklst_f!"
   c
  
positive.code: c
  c...  parameter definitions
  c
        include "nconsts.inc"
  c
  c...  subroutine arguments
  c
        integer nee,neq,numel,iwork,nsizea
        integer lm(nee,numel),lmx(nee,numel),indx(neq),link(iwork)
        integer nbrs(iwork)
  c
  c...  intrinsic functions
  c
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine lnklst(neq,lm,lmx,infiel,nconsz,numelt,infetype,indx,
       & link,nbrs,iwork,nsizea,nnz,numsn,ierr,errstrng)
  c
  c      program to create a linked list of nonzero row and column entries
  c
  