Commit 7dcfd8ce authored by Wenzhe Yu's avatar Wenzhe Yu 😎

Fix a bug in elpa_multiply_a_b

In elpa_multiply_a_b I wanted to call mpi_comm_rank but accidentally
called mpi_comm_size. This only affects the GPU initialization where
GPUs are assigned to CPU cores based on their MPI ranks.
parent 7ffc87c0
...@@ -157,7 +157,7 @@ ...@@ -157,7 +157,7 @@
call mpi_comm_size(int(mpi_comm_rows,kind=MPI_KIND) ,np_rowsMPI ,mpierr) call mpi_comm_size(int(mpi_comm_rows,kind=MPI_KIND) ,np_rowsMPI ,mpierr)
call mpi_comm_rank(int(mpi_comm_cols,kind=MPI_KIND) ,my_pcolMPI ,mpierr) call mpi_comm_rank(int(mpi_comm_cols,kind=MPI_KIND) ,my_pcolMPI ,mpierr)
call mpi_comm_size(int(mpi_comm_cols,kind=MPI_KIND) ,np_colsMPI ,mpierr) call mpi_comm_size(int(mpi_comm_cols,kind=MPI_KIND) ,np_colsMPI ,mpierr)
call mpi_comm_size(int(mpi_comm_all, kind=MPI_KIND) ,myidMPI ,mpierr) call mpi_comm_rank(int(mpi_comm_all, kind=MPI_KIND) ,myidMPI ,mpierr)
my_prow = int(my_prowMPI,kind=c_int) my_prow = int(my_prowMPI,kind=c_int)
np_rows = int(np_rowsMPI,kind=c_int) np_rows = int(np_rowsMPI,kind=c_int)
......
Markdown is supported
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