anchor.diff:  c...  subroutine arguments
   c
         integer nnz,neq,numnp,numslp,numsn,numfn,nstatesz,ndmatsz,numelt
  -      integer nconsz,nprop,matgpt,imatvar,nmatel,numrot,ierr
  +      integer nconsz,nprop,nstate,matgpt,imatvar,nmatel,numrot,ierr
         logical matchg
         integer ja(nnz),ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
         integer lmf(nconsz),infiel(6,numelt),iddmat(nstr,nstr)
  
positive.code:       ng=ngauss
        if(imatvar.eq.izero) ng=ngaussmax
        inddmatg=inddmat0
        do l=2,ng
          inddmatg=inddmatg+ione
          call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),ione)
  
negative.code:           ngauss=infetype(1,ietype)
            inddmatg=inddmat
            do l=1,ngauss
  cdebug            write(6,*)
  cdebug     &       "ind,matgpt,iel,ietype,inddmat,ngauss,l,inddmatg:",
  cdebug     &       ind,matgpt,iel,ietype,inddmat,ngauss,l,inddmatg
              call dcopy(nddmat,dmat(1,inddmat0),ione,dmat(1,inddmatg),
       &       ione)
              inddmatg=inddmatg+ione
            end do
          end do
        end if
  