New name VG in matdist.

5 years ago · bad3aac784
parent 6c2efcb233
commit bad3aac784
4 changed files with 4 additions and 4 deletions
--- a/tests/fileread/mld_cf_sample.f90
+++ b/tests/fileread/mld_cf_sample.f90
@ -327,7 +327,7 @@ program mld_cf_sample
    endif
    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)
  case default
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, desc_a,info,fmt=afmt,parts=part_block)
--- a/tests/fileread/mld_df_sample.f90
+++ b/tests/fileread/mld_df_sample.f90
@ -327,7 +327,7 @@ program mld_df_sample
    endif
    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)
  case default
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, desc_a,info,fmt=afmt,parts=part_block)
--- a/tests/fileread/mld_sf_sample.f90
+++ b/tests/fileread/mld_sf_sample.f90
@ -327,7 +327,7 @@ program mld_sf_sample
    endif
    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)
  case default
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, desc_a,info,fmt=afmt,parts=part_block)
--- a/tests/fileread/mld_zf_sample.f90
+++ b/tests/fileread/mld_zf_sample.f90
@ -327,7 +327,7 @@ program mld_zf_sample
    endif
    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)
  case default
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, desc_a,info,fmt=afmt,parts=part_block)