anchor.diff:        enddo    !--- end of substep  loop
   
         restart_substep_num = 1
  -
  +      if( fstrSOLID%TEMP_irres > 0 ) exit
       enddo      !--- end of tot_step loop
       !
       !  message
  
positive.code:       ! -------------------------------------------------------------------------
        !      STEP LOOP
        ! -------------------------------------------------------------------------
        do sub_step = restart_substep_num, fstrSOLID%step_ctrl(tot_step)%num_substep
  
          ! ----- time history of factor
          tt = sub_step*fstrSOLID%step_ctrl(tot_step)%initdt          !**
          call table_nlsta(hecMESH,fstrSOLID,tot_step,sub_step-1,factor)
          fstrSOLID%FACTOR(1) = factor
          call table_nlsta(hecMESH,fstrSOLID,tot_step,sub_step, factor)
          fstrSOLID%FACTOR(2) = factor
  
          if( dabs(fstrSOLID%FACTOR(2)-fstrSOLID%FACTOR(1))<1.0e-20 ) then
            if( hecMESH%my_rank==0) then
  
negative.code:     integer(kind=kint) :: ndof, nn
  
      integer(kind=kint) :: j, tot_step, step_count
      integer(kind=kint) :: sub_step, ss_end
      real(kind=kreal)   :: factor
      real(kind=kreal)   :: time_1, time_2
      logical            :: ctchanged
      integer(kind=kint) :: restart_step_num, restart_substep_num
  
      hecMAT%NDOF = hecMESH%n_dof
  