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