diff --git a/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90 b/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90
index deea748f..1e912368 100644
--- a/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90
@@ -170,11 +170,10 @@ subroutine mld_c_spmm_bld_inner(a_csr,desc_a,nlaggr,parms,ac,&
   call csr_restr%free()
   call acsr3%free()
   call ac_csr%mv_to_lcoo(ac_coo,info)
-  nza    = ac_coo%get_nzeros()
-  if (debug) write(0,*) me,trim(name),' Fixing ac ',&
-       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call ac_coo%fix(info)
   nza    = ac_coo%get_nzeros()
+  if (debug) write(0,*) me,trim(name),' Fixed ac ',&
+       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call desc_cprol%indxmap%l2gip(ac_coo%ia(1:nza),info)
   call desc_cprol%indxmap%l2gip(ac_coo%ja(1:nza),info)
   call ac_coo%set_nrows(ntaggr)
diff --git a/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90 b/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90
index ecde7398..ddeed79b 100644
--- a/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90
@@ -170,11 +170,10 @@ subroutine mld_d_spmm_bld_inner(a_csr,desc_a,nlaggr,parms,ac,&
   call csr_restr%free()
   call acsr3%free()
   call ac_csr%mv_to_lcoo(ac_coo,info)
-  nza    = ac_coo%get_nzeros()
-  if (debug) write(0,*) me,trim(name),' Fixing ac ',&
-       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call ac_coo%fix(info)
   nza    = ac_coo%get_nzeros()
+  if (debug) write(0,*) me,trim(name),' Fixed ac ',&
+       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call desc_cprol%indxmap%l2gip(ac_coo%ia(1:nza),info)
   call desc_cprol%indxmap%l2gip(ac_coo%ja(1:nza),info)
   call ac_coo%set_nrows(ntaggr)
diff --git a/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90 b/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90
index a2c2d1d0..0ae800d5 100644
--- a/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90
@@ -170,11 +170,10 @@ subroutine mld_s_spmm_bld_inner(a_csr,desc_a,nlaggr,parms,ac,&
   call csr_restr%free()
   call acsr3%free()
   call ac_csr%mv_to_lcoo(ac_coo,info)
-  nza    = ac_coo%get_nzeros()
-  if (debug) write(0,*) me,trim(name),' Fixing ac ',&
-       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call ac_coo%fix(info)
   nza    = ac_coo%get_nzeros()
+  if (debug) write(0,*) me,trim(name),' Fixed ac ',&
+       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call desc_cprol%indxmap%l2gip(ac_coo%ia(1:nza),info)
   call desc_cprol%indxmap%l2gip(ac_coo%ja(1:nza),info)
   call ac_coo%set_nrows(ntaggr)
diff --git a/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90 b/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90
index b0c459d5..65eaf1a3 100644
--- a/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90
@@ -170,11 +170,10 @@ subroutine mld_z_spmm_bld_inner(a_csr,desc_a,nlaggr,parms,ac,&
   call csr_restr%free()
   call acsr3%free()
   call ac_csr%mv_to_lcoo(ac_coo,info)
-  nza    = ac_coo%get_nzeros()
-  if (debug) write(0,*) me,trim(name),' Fixing ac ',&
-       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call ac_coo%fix(info)
   nza    = ac_coo%get_nzeros()
+  if (debug) write(0,*) me,trim(name),' Fixed ac ',&
+       & ac_coo%get_nrows(),ac_coo%get_ncols(), nza
   call desc_cprol%indxmap%l2gip(ac_coo%ia(1:nza),info)
   call desc_cprol%indxmap%l2gip(ac_coo%ja(1:nza),info)
   call ac_coo%set_nrows(ntaggr)