anchor.diff:       & delt,nstep,                                                      ! timdat
        & istatout,                                                        ! ioopts
        & idout,idsk,kw,kp)                                                ! ioinfo
  +cdebug      write(6,*) "After write_state:"
   c
         if(nintg.eq.1) then
           write(kto,800) ntimdat(6),ntimdat(7),ntimdat(8)
  
positive.code:      &   nfault,dfault,tfault,numfn,                                    ! split
       &   getshapn,bmatrixn,                                             ! bbar
       &   ierr,errstrng)                                                 ! errcode
  c
          if(ierr.ne.izero) return
  c
  
negative.code:      &   getshapn,bmatrixn,gload_cmp_ss,elas_strs_cmp_ss,               ! external
       &   elas_strs_mat_cmp_ss,                                          ! external
       &   ierr,errstrng)                                                 ! errcode
  cdebug        write(6,*) "After iterate (1):"
  c
          if(ierr.ne.izero) return
  c
  