anchor.diff:      integer(kind=kint) :: countNon0_lagrange !< counter of node-based number of non-zero items
       !< in Lagrange multiplier-related matrix
       integer(kind=kint) :: ierr, num_lagrange, location
  -    integer(kind=kint) :: id_lagrange_save(1000)
  +    integer(kind=kint), allocatable :: id_lagrange_save(:)
   
       character(len=1)   :: answer
   
  
positive.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) :: id_node_save(1000)
  
      ierr = 0
  
      num_node = list_node%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
  
negative.code:       list_node%id_lagrange(1) = id_lagrange
        countNon0_lagrange = countNon0_lagrange + 1
      else
        allocate(id_lagrange_save(num_lagrange))
        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
  