anchor.diff:          fstrSOLID%NRstat_i(knstSUMIT) = fstrSOLID%NRstat_i(knstSUMIT) + iter    ! logging newton iteration(sumofiter)
           fstrSOLID%CutBack_stat = fstrSOLID%CutBack_stat + 1
           if( iter == fstrSOLID%step_ctrl(cstep)%max_iter ) fstrSOLID%NRstat_i(knstDRESN) = 1
  -        if( rres > fstrSOLID%step_ctrl(cstep)%maxres    ) fstrSOLID%NRstat_i(knstDRESN) = 2
  +        if( rres > fstrSOLID%step_ctrl(cstep)%maxres .or. rres /= rres ) fstrSOLID%NRstat_i(knstDRESN) = 2
           return
         end if
       enddo
  
positive.code:           fstrSOLID%NRstat_i(knstCITER) = al_step                                 ! logging contact iteration
            fstrSOLID%CutBack_stat = fstrSOLID%CutBack_stat + 1
            if( iter == fstrSOLID%step_ctrl(cstep)%max_iter ) fstrSOLID%NRstat_i(knstDRESN) = 1
            if( res > fstrSOLID%step_ctrl(cstep)%maxres     ) fstrSOLID%NRstat_i(knstDRESN) = 2
            return
          end if
  
  
negative.code:           fstrSOLID%NRstat_i(knstCITER) = count_step                              ! logging contact iteration
            fstrSOLID%CutBack_stat = fstrSOLID%CutBack_stat + 1
            if( iter == fstrSOLID%step_ctrl(cstep)%max_iter ) fstrSOLID%NRstat_i(knstDRESN) = 1
            if( res > fstrSOLID%step_ctrl(cstep)%maxres .or. res /= res ) fstrSOLID%NRstat_i(knstDRESN) = 2
            return
          end if
  
  