Reduce memory footprint in csrspspmm.

6 years ago · 160b987ed1
parent 8695f9bcdd
commit 160b987ed1
4 changed files with 4 additions and 4 deletions
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@ -3384,7 +3384,7 @@ subroutine psb_ccsrspspmm(a,b,c,info)
  ! Estimate number of nonzeros on output.
  nza = a%get_nzeros()
  nzb = b%get_nzeros()
-  nzc = 2*(nza+nzb)
+  nzc = int(1.25*(nza+nzb))
  call c%allocate(ma,nb,nzc)

  call csr_spspmm(a,b,c,info)
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@ -3384,7 +3384,7 @@ subroutine psb_dcsrspspmm(a,b,c,info)
  ! Estimate number of nonzeros on output.
  nza = a%get_nzeros()
  nzb = b%get_nzeros()
-  nzc = 2*(nza+nzb)
+  nzc = int(1.25*(nza+nzb))
  call c%allocate(ma,nb,nzc)

  call csr_spspmm(a,b,c,info)
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@ -3384,7 +3384,7 @@ subroutine psb_scsrspspmm(a,b,c,info)
  ! Estimate number of nonzeros on output.
  nza = a%get_nzeros()
  nzb = b%get_nzeros()
-  nzc = 2*(nza+nzb)
+  nzc = int(1.25*(nza+nzb))
  call c%allocate(ma,nb,nzc)

  call csr_spspmm(a,b,c,info)
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@ -3384,7 +3384,7 @@ subroutine psb_zcsrspspmm(a,b,c,info)
  ! Estimate number of nonzeros on output.
  nza = a%get_nzeros()
  nzb = b%get_nzeros()
-  nzc = 2*(nza+nzb)
+  nzc = int(1.25*(nza+nzb))
  call c%allocate(ma,nb,nzc)

  call csr_spspmm(a,b,c,info)