diff --git a/Overlap/inters_lines.f90 b/Overlap/inters_lines.f90 index cf1ad92343c4d63247069e581e9db05efc7d240d..8b6b4e090804485ad97b1ac078ac0e221a0dd7ad 100644 --- a/Overlap/inters_lines.f90 +++ b/Overlap/inters_lines.f90 @@ -33,9 +33,13 @@ contains inters_lines = .false. else ! polyline_1 and polyline_2 overlap - inters_lines = spher_polygon_area(res_pol) >= min_inters & - * min(abs(spher_polyline_area(polyline_1)), & - abs(spher_polyline_area(polyline_2))) + if (min_inters > 0.) then + inters_lines = spher_polygon_area(res_pol) >= min_inters & + * min(abs(spher_polyline_area(polyline_1)), & + abs(spher_polyline_area(polyline_2))) + else + inters_lines = .true. + end if end if end function inters_lines