diff --git a/base/modules/psi_comm_buffers_mod.F90 b/base/modules/psi_comm_buffers_mod.F90 index f9b57834..61f74fd3 100644 --- a/base/modules/psi_comm_buffers_mod.F90 +++ b/base/modules/psi_comm_buffers_mod.F90 @@ -38,10 +38,10 @@ module mpi integer(psb_mpik_), parameter :: mpi_status_size = 1 integer(psb_mpik_), parameter :: mpi_integer = 1 integer(psb_mpik_), parameter :: mpi_integer8 = 2 - integer(psb_mpik_), parameter :: psb_mpi_r_spk_ = 3 - integer(psb_mpik_), parameter :: psb_mpi_r_dpk_ = 4 - integer(psb_mpik_), parameter :: psb_mpi_c_spk_ = 5 - integer(psb_mpik_), parameter :: psb_mpi_c_dpk_ = 6 + integer(psb_mpik_), parameter :: mpi_real = 3 + integer(psb_mpik_), parameter :: mpi_double_precision = 4 + integer(psb_mpik_), parameter :: mpi_complex = 5 + integer(psb_mpik_), parameter :: mpi_double_complex = 6 integer(psb_mpik_), parameter :: mpi_character = 7 integer(psb_mpik_), parameter :: mpi_logical = 8 integer(psb_mpik_), parameter :: mpi_integer2 = 9