Add cudaThreadSynchronize Fortran wrapper

src/cudaFunctions.cu

@@ -69,6 +69,17 @@
 
 #ifdef WITH_GPU_VERSION
 extern "C" {
+
+  int cudaThreadSynchronizeFromC() {
+    cudaError_t cuerr = cudaThreadSynchronize();
+    if (cuerr != cudaSuccess) {
+      errormessage("Error in cudaThreadSynchronize: %s\n",cudaGetErrorString(cuerr));
+      return 0;
+    }
+    return 1;
+  }
+
+
   int cudaSetDeviceFromC(int n) {
 
     cudaError_t cuerr = cudaSetDevice(n);

src/mod_cuda.F90

@@ -67,6 +67,15 @@ module cuda_functions
 
   ! functions to set and query the CUDA devices
 
+  interface
+    function cuda_threadsynchronize_c() result(istat) &
+             bind(C,name="cudaThreadSynchronizeFromC")
+      use iso_c_binding
+      implicit none
+      integer(kind=C_INT)  :: istat
+    end function cuda_threadsynchronize_c
+  end interface
+
   interface
     function cuda_setdevice_c(n) result(istat) &
              bind(C, name="cudaSetDeviceFromC")
@@ -407,6 +416,19 @@ module cuda_functions
 
     ! functions to set and query the CUDA devices
 
+    function cuda_threadsynchronize() result(success)
+      use iso_c_binding
+
+      implicit none
+
+      logical :: success
+#ifdef WITH_GPU_VERSION
+      success = cuda_threadsynchronize_c() /= 0
+#else
+      success = .true.
+#endif
+    end function cuda_threadsynchronize
+
     function cuda_setdevice(n) result(success)
       use iso_c_binding
 
@@ -560,7 +582,6 @@ module cuda_functions
 #endif
  end function
 
-
  function cuda_memcpy(dst, src, size, dir) result(success)
 
       use iso_c_binding
@@ -571,6 +592,7 @@ module cuda_functions
       integer(kind=C_SIZE_T), intent(in)    :: size
       integer(kind=C_INT), intent(in)       :: dir
       logical :: success
+
 #ifdef WITH_GPU_VERSION
         success = cuda_memcpy_c(dst, src, size, dir) /= 0
 #else