psblas3:

base/modules/psi_comm_buffers_mod.F90 Fix mpi type definitions in serial mode.
12 years ago · 21cb8304d8
parent f40ea391d3
commit 21cb8304d8
1 changed files with 4 additions and 4 deletions
--- 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