anchor.diff:    character(len=*), intent(IN) :: coef_cal_type
     integer, intent(IN) :: side_div_num  
     type(polygon_type), pointer :: target_polygon
  -  real(kind=8) :: my_area, filarea
  +  real(kind=8) :: my_area
     real(kind=8) :: overlap_area, overlap_sum
     real(kind=8) :: point_x(MAX_POINT), point_y(MAX_POINT)
     real(kind=8) :: temp_coef
  
positive.code:       write(0,*) "cal_coefficient num_of_target error "
        stop
      end if
      if (target_polygon%mask) then
        call set_target_polygon_coef1_by_num(my_polygon, 1, 1.d0)
      else
  
negative.code:   type(coef_type), pointer :: target_polygon, my_polygon, temp_polygon
    integer :: current_index, skip_index, next_index
    integer :: my_start_index, target_start_index
    real(kind=8) :: xa1, ya1, xa2, ya2
    real(kind=8) :: point_x(MAX_POINT), point_y(MAX_POINT)
    real(kind=8) :: xs, ys, xn, yn
    integer :: point_counter
  