Fix estimate in spspmm

6 years ago · 5bc452139f
parent 48c6a5777a
commit 5bc452139f
4 changed files with 8 additions and 8 deletions
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@ -3391,8 +3391,8 @@ subroutine psb_ccsrspspmm(a,b,c,info)
  ma = max(na,1)
  mb = max(mb,1)
  nb = max(nb,1)
-  nze = ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) )
+  nze = max(1,ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) ))
-  nzeb = (((nza+na-1)/na)*((nzb+nb-1)/nb))*nb
+  nzeb = max(1,(((nza+na-1)/na)*((nzb+nb-1)/nb))*nb)
  nzc = min(nzc, nze+nzeb)
  call c%allocate(ma,nb,nzc)
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@ -3391,8 +3391,8 @@ subroutine psb_dcsrspspmm(a,b,c,info)
  ma = max(na,1)
  mb = max(mb,1)
  nb = max(nb,1)
-  nze = ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) )
+  nze = max(1,ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) ))
-  nzeb = (((nza+na-1)/na)*((nzb+nb-1)/nb))*nb
+  nzeb = max(1,(((nza+na-1)/na)*((nzb+nb-1)/nb))*nb)
  nzc = min(nzc, nze+nzeb)
  call c%allocate(ma,nb,nzc)
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@ -3391,8 +3391,8 @@ subroutine psb_scsrspspmm(a,b,c,info)
  ma = max(na,1)
  mb = max(mb,1)
  nb = max(nb,1)
-  nze = ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) )
+  nze = max(1,ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) ))
-  nzeb = (((nza+na-1)/na)*((nzb+nb-1)/nb))*nb
+  nzeb = max(1,(((nza+na-1)/na)*((nzb+nb-1)/nb))*nb)
  nzc = min(nzc, nze+nzeb)
  call c%allocate(ma,nb,nzc)
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@ -3391,8 +3391,8 @@ subroutine psb_zcsrspspmm(a,b,c,info)
  ma = max(na,1)
  mb = max(mb,1)
  nb = max(nb,1)
-  nze = ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) )
+  nze = max(1,ma*(((nza+ma-1)/ma)*((nzb+mb-1)/mb) ))
-  nzeb = (((nza+na-1)/na)*((nzb+nb-1)/nb))*nb
+  nzeb = max(1,(((nza+na-1)/na)*((nzb+nb-1)/nb))*nb)
  nzc = min(nzc, nze+nzeb)
  call c%allocate(ma,nb,nzc)