psblas3:

test/kernel/d_file_spmv.f90 test/kernel/s_file_spmv.f90 Fix matrix distribution
8 years ago · 188a28bf3a
parent f2cf78e520
commit 188a28bf3a
2 changed files with 2 additions and 0 deletions
--- a/test/kernel/d_file_spmv.f90
+++ b/test/kernel/d_file_spmv.f90
@ -166,6 +166,7 @@ program d_file_spmv
  end if

  ! switch over different partition types
+  write(psb_out_unit,'("Number of processors : ",i0)')np
  if (ipart == 0) then 
    call psb_barrier(ictxt)
    if (iam==psb_root_) write(psb_out_unit,'("Partition type: block")')
--- a/test/kernel/s_file_spmv.f90
+++ b/test/kernel/s_file_spmv.f90
@ -166,6 +166,7 @@ program s_file_spmv
  end if

  ! switch over different partition types
+  write(psb_out_unit,'("Number of processors : ",i0)')np
  if (ipart == 0) then 
    call psb_barrier(ictxt)
    if (iam==psb_root_) write(psb_out_unit,'("Partition type: block")')