anchor.diff:  clater        if(ierr.ne.izero) return
   c
   clater      else if(lgdefp.eq.1.and.intord.eq.ithree) then
  +clater        write(kto,650)
   clater        call matinit_drv(
   clater     &   alnz,ja,nnz,neq,                                               ! sparse
   clater     &   x,d,iwink,wink,numnp,nwink,                                    ! global
  
positive.code:         if(ierr.ne.izero) return
  c
        else if(lgdefp.eq.izero.and.intord.eq.ithree) then
          call matinit_drv(
       &   alnz,ja,nnz,neq,                                               ! sparse
       &   x,d,iwink,wink,numnp,nwink,                                    ! global
  
negative.code:       end
  c
  c version
  c $Id: elastc.f,v 1.10 2004/08/12 20:39:10 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  