From 55252f072b31fc5e333331d36288e521ceac7fe7 Mon Sep 17 00:00:00 2001 From: Benjamin Bolm Date: Fri, 2 Feb 2024 18:12:09 +0100 Subject: [PATCH] Add c binding to `voronoi_compute_neighbors_c` --- 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