From 7dcfd8ce57f4be816d46a09743544255d80e0b03 Mon Sep 17 00:00:00 2001 From: Victor Yu Date: Sat, 16 May 2020 14:32:10 -0400 Subject: [PATCH] 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. --- src/elpa1/elpa_multiply_a_b.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/elpa1/elpa_multiply_a_b.F90 b/src/elpa1/elpa_multiply_a_b.F90 index 5300d5a0..ed232c19 100644 --- a/src/elpa1/elpa_multiply_a_b.F90 +++ b/src/elpa1/elpa_multiply_a_b.F90 @@ -157,7 +157,7 @@ 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_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) np_rows = int(np_rowsMPI,kind=c_int) -- GitLab