anchor.diff:  c
         subroutine stiff_ss(
        & xl,nsd,ndof,                                                     ! global
  -     & dmat,ien,nstr,nddmat,iel,                                        ! elemnt
  -     & gauss,sh,shj,ngauss,nen,ngaussdim,                               ! eltype
  +     & dmat,ien,iddmat,nstr,nddmat,iel,                                 ! elemnt
  +     & gauss,sh,shj,ngauss,ngaussdim,nen,                               ! eltype
        & s,nee,                                                           ! stiff
        & getshape,bmatrix,                                                ! bbar
        & idout,kto,kw,                                                    ! ioinf
  
positive.code: c
  cdebug      write(6,*) "Hello from stiff_ss_f!"
  c
        call getshape(xl,sh,shj,shd,shbar,det,gauss,val,iel,nen,nsd,
       & ngauss,ierr)
        if(ierr.ne.0) return
  c
  
negative.code:       end
  c
  c version
  c $Id: stiff_ss.f,v 1.2 2004/06/15 18:37:06 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  