From 37da6ac05e835455582ec19833b0a0ef49e904b4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 14 Jun 2011 16:01:00 +0000 Subject: [PATCH] psblas3: Fixed computation of bandwidth --- test/kernel/s_file_spmv.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/kernel/s_file_spmv.f90 b/test/kernel/s_file_spmv.f90 index e55bad1b..155ec7f1 100644 --- 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) - bdwdth = nbytes/(t2*1.d6) + nbytes = nr*(2*psb_sizeof_sp + psb_sizeof_int)+ annz*(psb_sizeof_sp + psb_sizeof_int) + 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