diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90
index d8dc7a16..e4f4f94a 100644
--- a/base/comm/psb_cspgather.F90
+++ b/base/comm/psb_cspgather.F90
@@ -51,10 +51,10 @@ subroutine  psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
   logical, intent(in), optional   :: keepnum,keeploc
 
   type(psb_c_coo_sparse_mat)      :: loc_coo, glob_coo
-  integer(psb_ipk_) :: ictxt,np,me
   integer(psb_ipk_) :: err_act, dupl_, nrg, ncg, nzg
   integer(psb_ipk_) :: ip,naggrm1,naggrp1, i, j, k, nzl
   logical :: keepnum_, keeploc_
+  integer(psb_mpik_) :: ictxt,np,me
   integer(psb_mpik_) :: icomm, minfo, ndx
   integer(psb_mpik_), allocatable :: nzbr(:), idisp(:)
   integer(psb_ipk_) :: ierr(5)
diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90
index b2e9fe06..c5bbbd8f 100644
--- a/base/comm/psb_dspgather.F90
+++ b/base/comm/psb_dspgather.F90
@@ -51,10 +51,10 @@ subroutine  psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
   logical, intent(in), optional   :: keepnum,keeploc
 
   type(psb_d_coo_sparse_mat)      :: loc_coo, glob_coo
-  integer(psb_ipk_) :: ictxt,np,me
   integer(psb_ipk_) :: err_act, dupl_, nrg, ncg, nzg
   integer(psb_ipk_) :: ip,naggrm1,naggrp1, i, j, k, nzl
   logical :: keepnum_, keeploc_
+  integer(psb_mpik_) :: ictxt,np,me
   integer(psb_mpik_) :: icomm, minfo, ndx
   integer(psb_mpik_), allocatable :: nzbr(:), idisp(:)
   integer(psb_ipk_) :: ierr(5)
diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90
index 7894fb95..51255c9b 100644
--- a/base/comm/psb_sspgather.F90
+++ b/base/comm/psb_sspgather.F90
@@ -51,10 +51,10 @@ subroutine  psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
   logical, intent(in), optional   :: keepnum,keeploc
 
   type(psb_s_coo_sparse_mat)      :: loc_coo, glob_coo
-  integer(psb_ipk_) :: ictxt,np,me
   integer(psb_ipk_) :: err_act, dupl_, nrg, ncg, nzg
   integer(psb_ipk_) :: ip,naggrm1,naggrp1, i, j, k, nzl
   logical :: keepnum_, keeploc_
+  integer(psb_mpik_) :: ictxt,np,me
   integer(psb_mpik_) :: icomm, minfo, ndx
   integer(psb_mpik_), allocatable :: nzbr(:), idisp(:)
   integer(psb_ipk_) :: ierr(5)
diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90
index 14aea941..778b4beb 100644
--- a/base/comm/psb_zspgather.F90
+++ b/base/comm/psb_zspgather.F90
@@ -51,10 +51,10 @@ subroutine  psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
   logical, intent(in), optional   :: keepnum,keeploc
 
   type(psb_z_coo_sparse_mat)      :: loc_coo, glob_coo
-  integer(psb_ipk_) :: ictxt,np,me
   integer(psb_ipk_) :: err_act, dupl_, nrg, ncg, nzg
   integer(psb_ipk_) :: ip,naggrm1,naggrp1, i, j, k, nzl
   logical :: keepnum_, keeploc_
+  integer(psb_mpik_) :: ictxt,np,me
   integer(psb_mpik_) :: icomm, minfo, ndx
   integer(psb_mpik_), allocatable :: nzbr(:), idisp(:)
   integer(psb_ipk_) :: ierr(5)