anchor.diff:  c
   c...  form element stiffness matrix
   c
  -          inddmat=infiel(6,iel)
  -          ngauss=infetype(1,ietype)
  -          nee=infetype(4,ietype)
  -          ngaussdim=max(ngauss,ngtest)
  -c
             call formes_ss(
        &     x,numnp,                                                     ! global
        &     s,stemp,                                                     ! stiff
  -     &     dmat(1,inddmat),ien(indien),lm(1,indien),iddmat,iel,         ! elemnt
  -     &     gauss(1,1,ietype),sh(1,1,1,ietype),shj(1,1,1,ietype),        ! eltype
  -     &     ngauss,ngaussdim,nen,nee,                                    ! eltype
  +     &     dmat(1,ielg),ien(1,ielg),lm(1,ielg),ielg,                    ! elemnt
  +     &     gauss,sh,shj,nen,ngauss,nee,                                 ! eltype
        &     skew,numrot,                                                 ! skew
        &     getshape,bmatrix,                                            ! bbar
        &     ierr,errstrng)                                               ! errcode
  
positive.code:      & bintern,neq,                                                     ! force
       & x,d,deld,numnp,                                                  ! global
       & s,stemp,                                                         ! stiff
       & dmat,ien,lm,lmx,infiel,iddmat,ndmatsz,numelt,nconsz,             ! elemnt
       & infmat,infmatmod,numat,                                          ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & skew,numrot,                                                     ! skew
       & getshape,bmatrix,                                                ! bbar
       & ierr,errstrng)                                                   ! errcode
  
negative.code: c
            call fill(p,zero,nee)
            call dsymv("u",nee,one,s,nee,dld,ione,zero,p,ione)
            call addfor(bintern,p,lm(1,ielg),lmx(1,ielg),neq,nee)
   150      continue
          end do
        end do
        return
        end
  c
  c version
  c $Id: formdf_ss.f,v 1.8 2005/03/21 19:12:43 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  