diff --git a/base/tools/psb_c_glob_transpose.F90 b/base/tools/psb_c_glob_transpose.F90
index d77ab6b9..a13da65a 100644
--- a/base/tools/psb_c_glob_transpose.F90
+++ b/base/tools/psb_c_glob_transpose.F90
@@ -707,7 +707,7 @@ subroutine psb_c_simple_glob_transpose_ip(ain,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_lc_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_c_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
@@ -758,7 +758,7 @@ subroutine psb_c_simple_glob_transpose(ain,aout,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_lc_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_c_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
diff --git a/base/tools/psb_d_glob_transpose.F90 b/base/tools/psb_d_glob_transpose.F90
index e475a30a..89769e0a 100644
--- a/base/tools/psb_d_glob_transpose.F90
+++ b/base/tools/psb_d_glob_transpose.F90
@@ -747,7 +747,7 @@ subroutine psb_d_simple_glob_transpose_ip(ain,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_ld_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_d_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
@@ -798,7 +798,7 @@ subroutine psb_d_simple_glob_transpose(ain,aout,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_ld_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_d_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
diff --git a/base/tools/psb_s_glob_transpose.F90 b/base/tools/psb_s_glob_transpose.F90
index 2f0c594b..afc4d374 100644
--- a/base/tools/psb_s_glob_transpose.F90
+++ b/base/tools/psb_s_glob_transpose.F90
@@ -707,7 +707,7 @@ subroutine psb_s_simple_glob_transpose_ip(ain,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_ls_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_s_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
@@ -758,7 +758,7 @@ subroutine psb_s_simple_glob_transpose(ain,aout,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_ls_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_s_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
diff --git a/base/tools/psb_z_glob_transpose.F90 b/base/tools/psb_z_glob_transpose.F90
index d1a3b038..64cf534b 100644
--- a/base/tools/psb_z_glob_transpose.F90
+++ b/base/tools/psb_z_glob_transpose.F90
@@ -707,7 +707,7 @@ subroutine psb_z_simple_glob_transpose_ip(ain,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_lz_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_z_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz
@@ -758,7 +758,7 @@ subroutine psb_z_simple_glob_transpose(ain,aout,desc_a,info)
   ! that the same DESC_A works for both A and A^T, which
   ! essentially means that A has a symmetric pattern.
   !
-  type(psb_lz_coo_sparse_mat) :: tmpc1, tmpc2
+  type(psb_z_coo_sparse_mat) :: tmpc1, tmpc2
   integer(psb_ipk_) :: nz1, nz2, nzh, nz
   integer(psb_ipk_) :: ictxt, me, np
   integer(psb_lpk_) :: i, j, k, nrow, ncol, nlz