From 6cc47e7c7bd765b590f6c50f21cff963453c9d91 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 30 Mar 2016 09:42:05 +0000 Subject: [PATCH] *** empty log message *** --- test/kernel/d_file_spmv.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/kernel/d_file_spmv.f90 b/test/kernel/d_file_spmv.f90 index e26412e2..9134a981 100644 --- a/test/kernel/d_file_spmv.f90 +++ b/test/kernel/d_file_spmv.f90 @@ -182,7 +182,7 @@ program d_file_spmv ivg(i) = ipv(1) enddo call psb_matdist(aux_a, a, ictxt, & - & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) + & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg) else if (ipart == 2) then if (iam==psb_root_) then @@ -196,12 +196,12 @@ program d_file_spmv call distr_mtpart(psb_root_,ictxt) call getv_mtpart(ivg) call psb_matdist(aux_a, a, ictxt, & - & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) + & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg) else if (iam==psb_root_) write(psb_out_unit,'("Partition type: default block")') call psb_matdist(aux_a, a, ictxt, & - & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block) + & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block) end if call psb_geall(x_col,desc_a,info)