anchor.diff:    integer :: next_p_num
     type(polygon_ptr_type), pointer :: next_polygons(:)
     integer :: i, j
  -  integer :: idx
  -  integer :: ii,jj,ll
  +  !integer :: idx
  +  !integer :: ii,jj,ll
   
     if (level>1550) then
     !if (level>5) then
  
positive.code: 
  !=======+=========+=========+=========+=========+=========+=========+=========+
  !> get coefficient of target polygon
  real(kind=8) function get_target_polygon_coef1_by_num(my_polygon, target_polygon_num) 
    implicit none
    type(polygon_type), pointer :: my_polygon !< my polygon
    integer, intent(IN) :: target_polygon_num !< target polygon number
  
    type(target_polygon_type), pointer :: current_target
    integer :: counter
  
    if (my_polygon%num_of_target < target_polygon_num) return
  
  
negative.code:   do while(associated(current_target))
      counter = counter + 1
      if (counter == target_polygon_num) then
        res = current_target%coef1
        return
      end if
      current_target => current_target%next
  