- directly use starpu_data_unregister

include/fstarpu_mod.f90

@@ -85,7 +85,7 @@ module fstarpu_mod
                         integer(c_int), value, intent(in) :: i
                 end function fstarpu_vector_get_nx
 
-                subroutine fstarpu_data_unregister (dh) bind(C)
+                subroutine fstarpu_data_unregister (dh) bind(C,name="starpu_data_unregister")
                         use iso_c_binding, only: c_ptr
                         type(c_ptr), value, intent(in) :: dh
                 end subroutine fstarpu_data_unregister

src/util/fstarpu.c

@@ -140,11 +140,6 @@ int fstarpu_vector_get_nx(void *buffers[], int i)
 	return STARPU_VECTOR_GET_NX(buffers[i]);
 }
 
-void fstarpu_data_unregister(starpu_data_handle_t handle)
-{
-	starpu_data_unregister(handle);
-}
-
 void fstarpu_insert_task(void ***_arglist)
 {
 	void **arglist = *_arglist;