fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 4720769608
commit c37ca0d927
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
test/kernel/d_file_spmv.f90
Unescape Escape View File

@ -273,10 +273,10 @@ program d_file_spmv
! This computation is valid for CSR ! 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_dp + psb_sizeof_int)+ annz*(psb_sizeof_dp + psb_sizeof_int)
bdwdth = nbytes/(t2*1.d6) bdwdth = times*nbytes/(t2*1.d6)
write(psb_out_unit,*) write(psb_out_unit,*)
write(psb_out_unit,'("MBYTES/S : ",F20.3)') bdwdth 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 write(psb_out_unit,'("MBYTES/S (trans): ",F20.3)') bdwdth
end if end if

Write Preview
Loading…
Cancel
Save