anchor.diff:        end
   c
   c version
  -c $Id: stiff_ss.f,v 1.1 2004/06/15 17:22:42 willic3 Exp $
  +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
  
positive.code: c
  c...  subroutine arguments
  c
        integer nsd,ndof,nstr,nddmat,iel,ngauss,nen,nee,idout,kto,kw,ierr
        integer ien(nen)
        double precision xl(nsd,nen),dmat(nddmat,ngaussdim)
        double precision gauss(nsd+1,ngaussmax),sh(nsd+1,nenmax,ngaussmax)
        double precision shj(nsd+1,nenmax,ngaussmax),s(nee,nee)
  
negative.code: c
  cdebug      write(6,*) "Hello from stiff_ss_f!"
  c
        call getshape(xl,sh,shj,shd,shbar,det,gauss,vol,iel,nen,nsd,
       & ngauss,ierr)
        if(ierr.ne.0) return
  c
  