Add c binding to voronoi_compute_neighbors_c

trixi-framework · Feb 2, 2024 · 55252f0 · 55252f0
1 parent 4ceff09
commit 55252f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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