anchor.diff:  c
   c...  parameter definitions
   c
  +      include "ndimens.inc"
  +      include "nshape.inc"
         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)
  +      integer neq,nconsz,numelt,iwork,nsizea,nnz,numsn,ierr
  +      integer lm(ndof*nconsz),lmx(ndof*nconsz),infiel(6,numelt)
  +      integer infetype(4,netypes),indx(neq),link(iwork),nbrs(iwork)
  +      character errstrng*(*)
   c
   c...  intrinsic functions
   c
  
positive.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine lnklst(lm,lmx,indx,link,nbrs,nee,neq,numel,iwork,
       & nsizea,nnz)
  c
  c      program to create a linked list of nonzero row and column entries
  c
  
negative.code: c
  c...  local variables
  c
        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
  