anchor.diff:    real(kind=8) :: delta_x, delta_y 
     integer :: search_count
     integer :: p, ps, pe
  -  integer :: ii, jj, ll
   
   
         ploop: do p = 1, this_polygon%num_of_point   
  
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
  