anchor.diff:          iel=nfault(1,i)
           indien=infiel(1,iel)
           imat=infiel(2,iel)
  -        imatvar=infmat(4,imat)
           ietype=infiel(3,iel)
  +        inddmat=infiel(6,iel)
  +        matmodel=infmat(1,imat)
  +        imatvar=infmatmod(4,matmodel)
           nen=infetype(2,ietype)
  -        inddmat=infiel(6,iel)
           ngauss=infetype(1,ietype)
           nee=infetype(4,ietype)
           ngaussdim=ngauss
  
positive.code:      & x,numnp,                                                         ! global
       & s,stemp,                                                         ! stiff
       & dmat,ien,lm,lmx,infiel,iddmat,ndmatsz,numelt,nconsz,             ! elemnt
       & infmat,numat,                                                    ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & skew,numrot,                                                     ! skew
       & nfault,dfault,tfault,numfn,                                      ! split
  
negative.code:       end
  c
  c version
  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
  