anchor.diff:  c...  subroutine arguments
   c
         integer neq,numnp,numslp,numfn,nstatesz,ndmatsz,numelt,nconsz
  -      integer nprop,matgpt,numrot,ierr
  +      integer nmatel,nstate,nprop,matgpt,numrot,ierr
         integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz),lmf(nconsz)
  -      integer infiel(6,numelt),infmat(6),infetype(4,netypes)
  +      integer infiel(6,numelt),infetype(4,netypes)
         character errstrng*(*)
         double precision b(neq),x(nsd,numnp),d(ndof,numnp),dx(ndof,numnp)
         double precision tfault(ndof,numfn)
  
positive.code: c
  c...  local variables
  c
        integer nmatel,nstate,ind,iel,indien,ietype,indstate,inddmat
        integer ngauss,nen,nee,l,indstateg,inddmatg,incstate
        double precision dl(60),xl(60),scur(162),ee(162),p(60),det(27)
  c
  
negative.code:       end
  c
  c version
  c $Id: elas_strs_cmp_ss.f,v 1.9 2004/07/09 01:20:16 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  