anchor.diff:          ye = this_polygon%point(pe)%ptr%y
   
           if (abs(xe-xs) < 180.d0) then
  -          delta_x = (xe-xs)/100.d0
  +          delta_x = (xe-xs)/division
           else
             if (xs>=xe) then
  -            delta_x = (xe-xs+360.d0)/100.d0
  +            delta_x = (xe-xs+360.d0)/division
             else
  -            delta_x = (xe-xs-360.d0)/100.d0
  +            delta_x = (xe-xs-360.d0)/division
             end if
           end if
   
  -        delta_y = (ye-ys)/100.d0
  +        delta_y = (ye-ys)/division
   
          current_polygon => this_polygon%point(p)%ptr%target_polygon
          if (.not.associated(current_polygon)) cycle ! next ploop
  
positive.code:   real(kind=8) :: delta_x, delta_y 
    integer :: search_count
    integer :: p, ps, pe
  
  
        ploop: do p = 1, this_polygon%num_of_point   
  
  
negative.code:   public :: write_monitor_info
    public :: write_polygon_info
  
    public :: is_in_this_polygon
  
    private :: point_type
    private :: point_ptr_type
  