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

New name VG in matdist.

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent 20a5aa9e9a
commit be9860496c
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
test/fileread/psb_cf_sample.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program psb_cf_sample
call psb_barrier(ictxt) call psb_barrier(ictxt)
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")')

2
test/fileread/psb_df_sample.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program psb_df_sample
call psb_barrier(ictxt) call psb_barrier(ictxt)
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")')

2
test/fileread/psb_sf_sample.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program psb_sf_sample
call psb_barrier(ictxt) call psb_barrier(ictxt)
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")')

2
test/fileread/psb_zf_sample.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program psb_zf_sample
call psb_barrier(ictxt) call psb_barrier(ictxt)
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")')

Write Preview
Loading…
Cancel
Save