Commit e1f10a57 authored by aarograh's avatar aarograh
Browse files

Fix uninitialized centroid in hexagon_vertexes

parent a5c2ac44

src/Geom_Hex.f90

+1 −0
Original line number Diff line number Diff line
@@ -247,6 +247,7 @@ FUNCTION hexagon_vertexes(apothem, orientation, centroid) RESULT(hexagon) 
  REQUIRE(apothem > 0)

  REQUIRE(ANY(orientation == HEX_ORIENTATIONS))



  c = ZERO

  IF(PRESENT(centroid)) c = centroid



  side_length = hex_side_length_from_pitch(TWO * apothem)