anchor.diff:  c
   c...  local variables
   c
  -      integer i,iel,indien,imat,matmodel,imatvar,ietype,nen,inddmat
  -      integer ngauss,nee,ngaussdim
  +      integer i,ielg
         double precision p(60),dl(60)
   c
   cdebug      write(6,*) "Hello from formf_ss_f!"
  
positive.code:      & bintern,neq,                                                     ! force
       & x,numnp,                                                         ! global
       & s,stemp,                                                         ! stiff
       & dmat,ien,lm,lmx,infiel,iddmat,ndmatsz,numelt,nconsz,             ! elemnt
       & infmat,infmatmod,numat,                                          ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & skew,numrot,                                                     ! skew
       & nfault,dfault,tfault,numfn,                                      ! split
       & getshape,bmatrix,                                                ! bbar
  
negative.code: c...  loop over split node entries
  c
        do i=1,numfn
          ielg=nfault(1,i)
  c
  c...  form element stiffness matrix
  c
          call formes_ss(
       &   x,numnp,                                                       ! global
       &   s,stemp,                                                       ! stiff
       &   dmat(1,ielg),ien(1,ielg),lm(1,ielg),ielg,                      ! elemnt
       &   gauss,sh,shj,nen,ngauss,nee,                                   ! eltype
       &   skew,numrot,                                                   ! skew
       &   getshape,bmatrix,                                              ! bbar
       &   ierr,errstrng)                                                 ! errcode
  c
          if(ierr.ne.izero) return
  c
          call lflteq(dl,dfault(1,i),nfault(1,i),ien(1,ielg),nen)
  	call dsymv("u",nee,one,s,nee,dl,ione,zero,p,ione)
          call addfor(bintern,p,lm(1,ielg),lmx(1,ielg),neq,nee)
        end do
        return
        end
  c
  c version
  c $Id: formf_ss.f,v 1.6 2005/03/21 19:31:06 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  