anchor.diff:  c******  info that isn't currently needed for the small strain case.
   c
         if(lgdefp.eq.izero.and.intord.ne.ithree) then
  +cdebug        write(6,*) "Before matinit_drv (1):"
           call matinit_drv(
        &   alnz,ja,nnz,neq,                                               ! sparse
        &   x,d,iwink,wink,numnp,nwink,                                    ! global
  
positive.code:      & delt,nstep,                                                      ! timdat
       & istatout,                                                        ! ioopts
       & idout,idsk,kw,kp)                                                ! ioinfo
  c
        if(nintg.eq.1) then
          write(kto,800) ntimdat(6),ntimdat(7),ntimdat(8)
  
negative.code:      &   nfault,dfault,tfault,numfn,                                    ! split
       &   getshapb,bmatrixb,                                             ! bbar
       &   ierr,errstrng)                                                 ! errcode
  cdebug        write(6,*) "After formf_ss (2):"
  c
          if(ierr.ne.izero) return
  c
  