From 61cafc0e3df073eab98704e870ece626064409af Mon Sep 17 00:00:00 2001 From: Benjamin Bolm <74359358+bennibolm@users.noreply.github.com> Date: Mon, 5 Feb 2024 08:32:33 +0100 Subject: [PATCH] Add c binding to `voronoi_compute_neighbors_c` (#21) --- src/smesh.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/smesh.f90 b/src/smesh.f90 index a0e28da..906753a 100644 --- a/src/smesh.f90 +++ b/src/smesh.f90 @@ -205,7 +205,7 @@ FUNCTION build_polygon_mesh_c(vor_pt, vor_ve, vor_veb, ve, pt, mesh_type, orthog build_polygon_mesh_c = 0 END FUNCTION build_polygon_mesh_c - FUNCTION voronoi_compute_neighbors_c(vor_ne, ve, vor_ve, vor_veb, nelem_delaunay, nve_voronoi, nelem_voronoi) + FUNCTION voronoi_compute_neighbors_c(vor_ne, ve, vor_ve, vor_veb, nelem_delaunay, nve_voronoi, nelem_voronoi) bind(c) INTEGER(c_int), VALUE, INTENT(IN) :: nelem_delaunay, nve_voronoi, nelem_voronoi INTEGER(c_int), DIMENSION(nve_voronoi), INTENT(OUT) :: vor_ne INTEGER(c_int), DIMENSION(3,nelem_delaunay), INTENT(IN) :: ve