anchor.diff:        end
   c
   c version
  -c $Id: formf_ss.f,v 1.2 2004/06/21 21:03:39 willic3 Exp $
  +c $Id: formf_ss.f,v 1.3 2004/07/08 21:15:31 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:         iel=nfault(1,i)
          indien=infiel(1,iel)
          imat=infiel(2,iel)
          imatvar=infmat(4,imat)
          ietype=infiel(3,iel)
          nen=infetype(2,ietype)
          inddmat=infiel(6,iel)
          ngauss=infetype(1,ietype)
          nee=infetype(4,ietype)
          ngaussdim=ngauss
  
negative.code: c
        integer neq,numnp,ndmatsz,numelt,nconsz,numat,numrot,numfn,ierr
        integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
        integer infiel(6,numelt),iddmat(nstr,nstr),infmat(3,numat)
        integer infmatmod(5,nmatmodmax),infetype(4,netypes)
        integer nfault(3,numfn)
        character errstrng*(*)
        double precision bdisp(neq),x(nsd,numnp),s(neemax*neemax)
        double precision stemp(neemax*neemax),dfault(ndof,numfn)
  