Commit ac2ef6dc authored by Soheil Soltani's avatar Soheil Soltani
Browse files

Minor correction

correct the dimension of c_f pointer association argument
parent 10e3aade
......@@ -498,7 +498,7 @@
#else
tmp1_mpi_dev = transfer(tmp1_dev, tmp1_mpi_dev)
! and associate a fortran pointer
call c_f_pointer(tmp1_mpi_dev, tmp1_mpi_fortran_ptr, [nblk*nblk])
call c_f_pointer(tmp1_mpi_dev, tmp1_mpi_fortran_ptr, [nblk,nblk])
call obj%timer%start("mpi_cuda_communication")
......
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