diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90
index 063ed78c..a5c1fe7a 100644
--- a/base/comm/psb_dspgather.F90
+++ b/base/comm/psb_dspgather.F90
@@ -70,9 +70,9 @@ subroutine  psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
       idisp(ip) = sum(nzbr(1:ip-1))
     enddo
     ndx = nzbr(me+1) 
-    call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
+    call mpi_allgatherv(loc_coo%val,ndx,mpi_double_precision,&
          & glob_coo%val,nzbr,idisp,&
-         & mpi_complex,icomm,minfo)
+         & mpi_double_precision,icomm,minfo)
     if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
          & glob_coo%ia,nzbr,idisp,&
          & psb_mpi_ipk_integer,icomm,minfo)
diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90
index 349dccc5..ea2a832e 100644
--- a/base/comm/psb_sspgather.F90
+++ b/base/comm/psb_sspgather.F90
@@ -70,9 +70,9 @@ subroutine  psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
       idisp(ip) = sum(nzbr(1:ip-1))
     enddo
     ndx = nzbr(me+1) 
-    call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
+    call mpi_allgatherv(loc_coo%val,ndx,mpi_real,&
          & glob_coo%val,nzbr,idisp,&
-         & mpi_complex,icomm,minfo)
+         & mpi_real,icomm,minfo)
     if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
          & glob_coo%ia,nzbr,idisp,&
          & psb_mpi_ipk_integer,icomm,minfo)
diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90
index 7913be9a..55f378ae 100644
--- a/base/comm/psb_zspgather.F90
+++ b/base/comm/psb_zspgather.F90
@@ -70,9 +70,9 @@ subroutine  psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
       idisp(ip) = sum(nzbr(1:ip-1))
     enddo
     ndx = nzbr(me+1) 
-    call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,&
+    call mpi_allgatherv(loc_coo%val,ndx,mpi_double_complex,&
          & glob_coo%val,nzbr,idisp,&
-         & mpi_complex,icomm,minfo)
+         & mpi_double_complex,icomm,minfo)
     if (minfo == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_ipk_integer,&
          & glob_coo%ia,nzbr,idisp,&
          & psb_mpi_ipk_integer,icomm,minfo)