anchor.diff:        end
   c
   c version
  -c $Id: formdf_ss.f,v 1.1 2004/06/15 19:52:10 willic3 Exp $
  +c $Id: formdf_ss.f,v 1.2 2004/06/16 20:23:33 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c...  subroutine arguments
  c
        integer neq,nsd,ndof,numnp,nstr,nddmat,ndmatsz,numelt,nconsz,numat
        integer netypes,nskdim,numrot,idout,kto,kw,ierr
        integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
        integer infiel(6,numelt),iddmat(nstr,nstr),infmat(6,numat)
        integer infetype(4,netypes)
  
negative.code:      & gauss,sh,shj,infetype,netypes,                                   ! eltype
       & skew,nskdim,numrot,                                              ! skew
       & getshape,bmatrix,                                                ! bbar
       & ierr)                                                            ! errcode
  c
  c...program to compute forces due to kinematic boundary conditions
  