anchor.diff:          endif
         end do
         if( .not. fg ) then
  -        list(j) = -list(j)
  +        list(j) = -1
         endif
       end do
     end function elem_global_to_local
  
positive.code:         endif
        enddo
  
        do i=1, cache
          if( hecMESH%global_node_ID(i) == list(j)) then
            list(j) = i
            cache = i+1
  
negative.code:       enddo
  
        if( .not. fg ) then
          list(j) = -1 ! not exist node
        endif
      enddo aa
    end function node_global_to_local
  