fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix kernel test subdir

Browse Source
This commit is contained in:
Salvatore Filippone
2020-02-25 08:29:00 +00:00
parent 55989d2e8f
commit 1a442ec7d0
3 changed files with 221 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/kernel/d_file_spmv.f90
+4 -4
View File
@@ -66,8 +66,8 @@ program d_file_spmv
integer(psb_ipk_) :: iparm(20)
! other variables
integer(psb_ipk_) :: i,info,j,m_problem
integer(psb_ipk_) :: internal, m,ii,nnzero
integer(psb_lpk_) :: i,j,m_problem
integer(psb_ipk_) :: internal, m,ii,nnzero, info
real(psb_dpk_) :: t1, t2, r_amax, b_amax,&
&scale,resmx,resmxp, flops, bdwdth
real(psb_dpk_) :: tt1, tt2, tflops
@@ -175,7 +175,7 @@ program d_file_spmv
call part_block(i,m_problem,np,ipv,nv)
ivg(i) = ipv(1)
enddo
call psb_matdist(aux_a, a, ictxt,desc_a,info,fmt=afmt,v=ivg)
call psb_matdist(aux_a, a, ictxt,desc_a,info,fmt=afmt,vg=ivg)
else if (ipart == 2) then
if (iam==psb_root_) then
@@ -188,7 +188,7 @@ program d_file_spmv
call psb_barrier(ictxt)
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,v=ivg)
call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,vg=ivg)
else
if (iam==psb_root_) write(psb_out_unit,'("Partition type: default block")')