Skip to content
Snippets Groups Projects
Commit 14b15919 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Do not compute areas if `min_inters` is 0

Optimization.
parent 90d664bd
No related branches found
No related tags found
No related merge requests found
...@@ -33,9 +33,13 @@ contains ...@@ -33,9 +33,13 @@ contains
inters_lines = .false. inters_lines = .false.
else else
! polyline_1 and polyline_2 overlap ! polyline_1 and polyline_2 overlap
inters_lines = spher_polygon_area(res_pol) >= min_inters & if (min_inters > 0.) then
* min(abs(spher_polyline_area(polyline_1)), & inters_lines = spher_polygon_area(res_pol) >= min_inters &
abs(spher_polyline_area(polyline_2))) * min(abs(spher_polyline_area(polyline_1)), &
abs(spher_polyline_area(polyline_2)))
else
inters_lines = .true.
end if
end if end if
end function inters_lines end function inters_lines
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment