anchor.diff:       & gauss,sh,shj,infetype,netypes,                                   ! eltype
        & skew,nskdim,numrot,                                              ! skew
        & getshape,bmatrix,                                                ! bbar
  -     & idout,kto,kw,                                                    ! ioinfo
        & ierr)                                                            ! errcode
   c
   c...program to compute forces due to kinematic boundary conditions
  
positive.code:      &     ngauss,ngaussdim,nen,nee,                                    ! eltype
       &     skew,nskdim,numrot,                                          ! skew
       &     getshape,bmatrix,                                            ! bbar
       &     idout,kto,kw,                                                ! ioinfo
       &     ierr)                                                        ! errcode
  c
            if(ierr.ne.izero) return
  
negative.code:       end
  c
  c version
  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
  