Commit 5659ad6f authored by Soheil Soltani's avatar Soheil Soltani
Browse files

Implement cudaDeviceSynchronize()

parent c54d95b9
......@@ -614,3 +614,7 @@ extern "C" void copy_float_complex_a_tmp1_FromC(float _Complex *a_dev, float _Co
printf("Error in executing copy_float_complex_a_tmp1_kernel: %s\n",cudaGetErrorString(cuerr));
}
}
extern "C" void device_synchronizeFromC() {
  • This should not be necessary. We have device_synchronize already implemented in cudaFunctions.cu

Please register or sign in to reply
cudaDeviceSynchronize();
}
......@@ -50,6 +50,12 @@ module invert_trm_cuda
implicit none
public
interface
subroutine device_synchronize_c() &
bind(C, name="device_synchronizeFromC")
end subroutine
end interface
interface
subroutine copy_double_a_tmat2_c(a_dev, tmat2_dev, nblk, matrixRows, l_cols, l_colx, l_row1, nb)&
bind(C, name="copy_double_a_tmat2_FromC")
......@@ -492,6 +498,9 @@ module invert_trm_cuda
#endif
end subroutine
subroutine device_synchronize()
call device_synchronize_c()
end subroutine device_synchronize
end module
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment