anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer neq,numnp,ndmatsz,numelt,nconsz,numat,numrot,numfn,ierr
  -      integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
  -      integer infiel(7,numelt),iddmat(nstr,nstr),infmat(3,numat)
  -      integer infmatmod(5,nmatmodmax),infetype(4,netypes)
  +      integer neq,numnp,nvfamilies,numelv,nen,ngauss,nee,numrot,numfn
  +      integer ierr
  +      integer ien(nen,numelv),lm(ndof*nen,numelv),lmx(ndof*nen,numelv)
  +      integer ivfamily(5,nvfamilies),infmatmod(6,nmatmodmax)
         integer nfault(3,numfn)
         character errstrng*(*)
         double precision bintern(neq),x(nsd,numnp),s(neemax*neemax)
         double precision stemp(neemax*neemax),dfault(ndof,numfn)
  -      double precision tfault(ndof,numfn),dmat(nddmat,ndmatsz)
  -      double precision gauss(nsd+1,ngaussmax,netypes)
  -      double precision sh(nsd+1,nenmax,ngaussmax,netypes)
  -      double precision shj(nsd+1,nenmax,ngaussmax,netypes)
  +      double precision tfault(ndof,numfn),dmat(nddmat*ngauss,numelv)
  +      double precision gauss(nsd+1,ngauss)
  +      double precision sh(nsd+1,nen,ngauss)
  +      double precision shj(nsd+1,nen,ngauss)
         double precision skew(nskdim,numnp)
   c
   c...  external routines
  
positive.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!"
  
negative.code:      & bintern,neq,                                                     ! force
       & x,numnp,                                                         ! global
       & s,stemp,                                                         ! stiff
       & dmat,ien,lm,lmx,ivfamily,nvfamilies,numelv,                      ! elemnt
       & infmatmod,                                                       ! materl
       & gauss,sh,shj,nen,ngauss,nee,                                     ! eltype
       & skew,numrot,                                                     ! skew
       & nfault,dfault,tfault,numfn,                                      ! split
       & getshape,bmatrix,                                                ! bbar
  