anchor.diff:        double precision sh(nsd+1,nenmax,ngaussmax,netypes)
         double precision shj(nsd+1,nenmax,ngaussmax,netypes)
         double precision skew(nskdim,numnp)
  -c
  -c...  defined constants
  -c
  -      include "nconsts.inc"
  -      include "rconsts.inc"
   c
   c...  external routines
   c
  
positive.code:           ngaussdim=max(ngauss,ngtest)
  c
            call formes_ss(
       &     x,nsd,ndof,numnp,                                            ! global
       &     s,stemp,                                                     ! stiff
       &     dmat(1,inddmat),ien(indien),lm(1,indien),iddmat,nstr,nddmat, ! elemnt
       &     iel,                                                         ! elemnt
       &     gauss(1,1,ietype),sh(1,1,1,ietype),shj(1,1,1,ietype),        ! eltype
       &     ngauss,ngaussdim,nen,nee,                                    ! eltype
       &     skew,nskdim,numrot,                                          ! skew
       &     getshape,bmatrix,                                            ! bbar
       &     ierr)                                                        ! errcode
  c
            if(ierr.ne.izero) return
  c
  
negative.code: 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
       & infmat,numat,                                                    ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & skew,numrot,                                                     ! skew
       & getshape,bmatrix,                                                ! bbar
       & ierr,errstrng)                                                   ! errcode
  c
  c...program to compute forces due to kinematic boundary conditions
  c***  Leave this routine essentially 'as-is' for now.  In the near
  