anchor.diff:  c
           if(ierr.ne.izero) return
   c
  -clater      else if(lgdefp.eq.ione.and.ibbarp.eq.izero) then
  +clater      else if(lgdefp.eq.ione.and.intord.ne.ithree) then
   clater        call matinit_drv(
   clater     &   alnz,ja,nnz,neq,                                               ! sparse
   clater     &   x,d,iwink,wink,numnp,nwink,                                    ! global
  
positive.code:       end
  c
  c version
  c $Id: elastc.f,v 1.4 2004/07/13 17:40:12 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:       integer lmf(*),infiel(*),iddmat(*),ielno(*),iside(*)
        integer ihistry(*),mhist(*),infmat(*),infmatmod(*),ismatmod(*)
        integer infetype(*),maxstp(*),maxit(*),ntdinit(*),lgdef(*)
        integer itmax(*),istatout(*)
        double precision alnz(*),pcg(*),zcg(*)
        double precision b(*),btot(*),bres(*),pvec(*),gvec1(*),gvec2(*)
        double precision grav(*)
  