anchor.diff:      integer :: i, ls, le, l, j, jb_lag, ib_lag, idof, jdof, ilag, k, ks, ke
       integer, allocatable :: iwUr(:), iwUc(:), iwLr(:), iwLc(:)
       type(hecmwST_matrix) :: hecMATLag
  -
  -    write(0,*) 'INFO: solve_no_eliminate'
  +    real(kind=kreal) :: t1
  +
  +    t1 = hecmw_wtime()
  +    write(0,*) 'INFO: solve_no_eliminate, start', hecmw_wtime()-t1
   
       ndof = hecMAT%NDOF
       ndof2 = ndof*ndof
  
positive.code: 
      call free_hecmat(hecMATLag)
  
      write(0,*) 'INFO: solve_no_eliminate end'
    end subroutine solve_no_eliminate
  
  end module m_solve_LINEQ_iter_contact
  
negative.code:     hecMATLag%Iarray=hecMAT%Iarray
      hecMATLag%Rarray=hecMAT%Rarray
  
      write(0,*) 'INFO: made hecMATLag', hecmw_wtime()-t1
  
      call hecmw_solve_33(hecMESH, hecMATLag)
  
      do i = 1, hecMAT%N*ndof+fstrMAT%num_lagrange
  