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")')