psblas3:

Fixed computation of bandwidth
14 years ago · 37da6ac05e
parent c37ca0d927
commit 37da6ac05e
1 changed files with 3 additions and 3 deletions
--- a/test/kernel/s_file_spmv.f90
+++ b/test/kernel/s_file_spmv.f90
@ -272,11 +272,11 @@ program s_file_spmv
    !
    ! This computation is valid for CSR
    !
-    nbytes = nr*(2*psb_sizeof_dp + psb_sizeof_int)+ annz*(psb_sizeof_dp + psb_sizeof_int)
+    nbytes = nr*(2*psb_sizeof_sp + psb_sizeof_int)+ annz*(psb_sizeof_sp + psb_sizeof_int)
-    bdwdth = nbytes/(t2*1.d6)
+    bdwdth = times*nbytes/(t2*1.d6)
    write(psb_out_unit,*)
    write(psb_out_unit,'("MBYTES/S                         : ",F20.3)') bdwdth
-    bdwdth = nbytes/(tt2*1.d6)
+    bdwdth = times*nbytes/(tt2*1.d6)
    write(psb_out_unit,'("MBYTES/S                  (trans): ",F20.3)') bdwdth
  end if