anchor.diff:        integer matgpt,imat,matmodel,nmatel,imatvar,ngtest,ielg,iel,indien
         integer ietype,nen,inddmat,ngauss,nee,ngaussdim,i
         double precision p(60),dld(60)
  -cdebug      integer idebug
  +cdebug      integer idb
   c
   cdebug      write(6,*) "Hello from formdf_ss_f!"
   c
  
positive.code: c
  c
        subroutine formdf_ss(
       & bdisp,neq,                                                       ! force
       & x,d,deld,numnp,                                                  ! global
       & s,stemp,                                                         ! stiff
       & dmat,ien,lm,lmx,infiel,iddmat,ndmatsz,numelt,nconsz,             ! elemnt
  
negative.code:       integer infiel(6,numelt),iddmat(nstr,nstr),infmat(3,numat)
        integer infmatmod(5,nmatmodmax),infetype(4,netypes)
        character errstrng*(*)
        double precision bintern(neq),x(nsd,numnp),d(ndof,numnp)
        double precision deld(ndof,numnp),s(neemax*neemax)
        double precision stemp(neemax*neemax),dmat(nddmat,ndmatsz)
        double precision gauss(nsd+1,ngaussmax,netypes)
  