anchor.diff:          if(location /= num_lagrange) list_node%id_lagrange(location+1:num_lagrange) = id_lagrange_save(location:num_lagrange-1)
           countNon0_lagrange = countNon0_lagrange + 1
         endif
  +      deallocate(id_lagrange_save)
       endif
   
     end subroutine insert_lagrange
  
positive.code:       list_node%id_lagrange(1) = id_lagrange
        countNon0_lagrange = countNon0_lagrange + 1
      else
        id_lagrange_save(1:num_lagrange) = list_node%id_lagrange(1:num_lagrange)
        location = find_locationINarray(id_lagrange,num_lagrange,list_node%id_lagrange)
        if(location /= 0)then
  
negative.code:     !< global number of node
      integer(kind=kint) :: countNon0_node !< counter of node-based number of non-zero items in displacement-related matrix
      integer(kind=kint) :: ierr, num_node, location
      integer(kind=kint),allocatable :: id_node_save(:)
  
      ierr = 0
  
      num_node = list_node%num_node
      allocate(id_node_save(num_node))
      id_node_save(1:num_node) = list_node%id_node(1:num_node)
      location = find_locationINarray(id_node,num_node,list_node%id_node)
      if(location /= 0)then
  