anchor.diff:  c
         include "ndimens.inc"
         include "nshape.inc"
  +      include "materials.inc"
         include "nconsts.inc"
         include "rconsts.inc"
   c
  
positive.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(6,numat)
        integer infetype(4,netypes),nfault(3,numfn)
        character errstrng*(*)
        double precision bdisp(neq),x(nsd,numnp),s(neemax*neemax)
        double precision stemp(neemax*neemax),dfault(ndof,numfn)
  
negative.code: c
  c...  local variables
  c
        integer i,iel,indien,imat,matmodel,imatvar,ietype,nen,inddmat
        integer ngauss,nee,ngaussdim
        double precision p(60),dl(60)
  c
  cdebug      write(6,*) "Hello from formf_ss_f!"
  