Move call to ac%fix

5 years ago · e4e7d8970e
parent 28cc3283cd
commit e4e7d8970e
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_c_spmm_bld_inner.f90
@ -170,10 +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)
+  call ac_coo%fix(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)
  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)
--- a/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_d_spmm_bld_inner.f90
@ -170,10 +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)
+  call ac_coo%fix(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)
  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)
--- a/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_s_spmm_bld_inner.f90
@ -170,10 +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)
+  call ac_coo%fix(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)
  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)
--- a/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90
+++ b/mlprec/impl/aggregator/mld_z_spmm_bld_inner.f90
@ -170,10 +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)
+  call ac_coo%fix(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)
  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)