diff --git a/base/modules/penv/psi_c_collective_mod.F90 b/base/modules/penv/psi_c_collective_mod.F90
index de836d38..a1fa78a3 100644
--- a/base/modules/penv/psi_c_collective_mod.F90
+++ b/base/modules/penv/psi_c_collective_mod.F90
@@ -1048,7 +1048,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_complex_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_c_spk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&
diff --git a/base/modules/penv/psi_e_collective_mod.F90 b/base/modules/penv/psi_e_collective_mod.F90
index 4c3a006e..443f5f99 100644
--- a/base/modules/penv/psi_e_collective_mod.F90
+++ b/base/modules/penv/psi_e_collective_mod.F90
@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int8_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_epk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&
diff --git a/base/modules/penv/psi_i2_collective_mod.F90 b/base/modules/penv/psi_i2_collective_mod.F90
index 911ed938..31a245b6 100644
--- a/base/modules/penv/psi_i2_collective_mod.F90
+++ b/base/modules/penv/psi_i2_collective_mod.F90
@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int2_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_i2pk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&
diff --git a/base/modules/penv/psi_m_collective_mod.F90 b/base/modules/penv/psi_m_collective_mod.F90
index 206b15fa..8badcf87 100644
--- a/base/modules/penv/psi_m_collective_mod.F90
+++ b/base/modules/penv/psi_m_collective_mod.F90
@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int4_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_mpk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&
diff --git a/base/modules/penv/psi_s_collective_mod.F90 b/base/modules/penv/psi_s_collective_mod.F90
index eda86961..e4fb9d06 100644
--- a/base/modules/penv/psi_s_collective_mod.F90
+++ b/base/modules/penv/psi_s_collective_mod.F90
@@ -1539,7 +1539,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_real_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_r_spk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&
diff --git a/base/modules/penv/psi_z_collective_mod.F90 b/base/modules/penv/psi_z_collective_mod.F90
index a517cb03..8a58ffb5 100644
--- a/base/modules/penv/psi_z_collective_mod.F90
+++ b/base/modules/penv/psi_z_collective_mod.F90
@@ -1048,7 +1048,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_dcomplex_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_c_dpk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&