fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

New name VG in matdist.

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 6c2efcb233
commit bad3aac784
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
tests/fileread/mld_cf_sample.f90
Unescape Escape View File

@ -327,7 +327,7 @@ program mld_cf_sample
endif endif
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) 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 case default
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') 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) call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,parts=part_block)

2
tests/fileread/mld_df_sample.f90
Unescape Escape View File

@ -327,7 +327,7 @@ program mld_df_sample
endif endif
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) 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 case default
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') 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) call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,parts=part_block)

2
tests/fileread/mld_sf_sample.f90
Unescape Escape View File

@ -327,7 +327,7 @@ program mld_sf_sample
endif endif
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) 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 case default
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') 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) call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,parts=part_block)

2
tests/fileread/mld_zf_sample.f90
Unescape Escape View File

@ -327,7 +327,7 @@ program mld_zf_sample
endif endif
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) 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 case default
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') 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) call psb_matdist(aux_a, a, ictxt, desc_a,info,fmt=afmt,parts=part_block)

Write Preview
Loading…
Cancel
Save