anchor.diff:        end
   c
   c version
  -c $Id: formdf_ss.f,v 1.3 2004/06/21 19:49:04 willic3 Exp $
  +c $Id: formdf_ss.f,v 1.4 2004/07/08 21:09:48 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:      & 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
  
negative.code: c
        integer neq,numnp,ndmatsz,numelt,nconsz,numat,numrot,ierr
        integer ien(nconsz),lm(ndof,nconsz),lmx(ndof,nconsz)
        integer infiel(6,numelt),iddmat(nstr,nstr),infmat(3,numat)
        integer infmatmod(5,nmatmodmax),infetype(4,netypes)
        character errstrng*(*)
        double precision bdisp(neq),x(nsd,numnp),d(ndof,numnp)
        double precision deld(ndof,numnp),s(neemax*neemax)
  