diff --git a/src/elpa1/elpa_multiply_a_b.F90 b/src/elpa1/elpa_multiply_a_b.F90
index 5300d5a01d2e4c7222e5625c17136f8d17b8ac6f..ed232c190836923a88f8e7c40e7e062663146b96 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)