From 188a28bf3ad0f8aa42fba13e41bad53eb8b49e65 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 8 Mar 2017 17:27:26 +0000 Subject: [PATCH] psblas3: test/kernel/d_file_spmv.f90 test/kernel/s_file_spmv.f90 Fix matrix distribution --- test/kernel/d_file_spmv.f90 | 1 + test/kernel/s_file_spmv.f90 | 1 + 2 files changed, 2 insertions(+) diff --git a/test/kernel/d_file_spmv.f90 b/test/kernel/d_file_spmv.f90 index 2e81d63e..a52592c2 100644 --- 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")') diff --git a/test/kernel/s_file_spmv.f90 b/test/kernel/s_file_spmv.f90 index 21d5a754..6bf3e4e8 100644 --- 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")')