anchor.diff:  c...  subroutine arguments
   c
         integer iel,nen,nee,ngauss,ierr
  +      character errstrng*(*)
         double precision xl(nsd,nen),dl(ndof*nen)
         double precision sh(nsd+1,nenmax,ngaussmax)
         double precision shj(nsd+1,nenmax,ngaussmax),ee(nstr,ngauss)
  
positive.code:       end
  c
  c version
  c $Id: bdeld_ss.f,v 1.3 2004/06/18 14:58:45 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c
        subroutine bdeld_ss(xl,dl,sh,shj,ee,det,gauss,iel,nen,nee,ngauss,
       & getshape,bmatrix,ierr,errstrng)
  c
  c...  Subroutine to compute strain increments in each element.
  c     Strain is evaluated at the number of gauss points specified by
  