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

psblas3:

Browse Source 
handling of error from gather in sample code.
psblas-3.0-maint
Salvatore Filippone 14 years ago
parent 7674f6a831
commit 47d019a3c2
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
test/fileread/cf_sample.f90
Unescape Escape View File

@ -289,6 +289,7 @@ program cf_sample
call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_) call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
if (info == psb_success_) & if (info == psb_success_) &
& call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_) & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
if (info /= psb_success_) goto 9999
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_err_unit,'(" ")') write(psb_err_unit,'(" ")')
write(psb_err_unit,'("Saving x on file")') write(psb_err_unit,'("Saving x on file")')

1
test/fileread/df_sample.f90
Unescape Escape View File

@ -296,6 +296,7 @@ program df_sample
call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_) call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
if (info == psb_success_) & if (info == psb_success_) &
& call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_) & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
if (info /= psb_success_) goto 9999
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_err_unit,'(" ")') write(psb_err_unit,'(" ")')
write(psb_err_unit,'("Saving x on file")') write(psb_err_unit,'("Saving x on file")')

1
test/fileread/sf_sample.f90
Unescape Escape View File

@ -293,6 +293,7 @@ program sf_sample
call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_) call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
if (info == psb_success_) & if (info == psb_success_) &
& call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_) & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
if (info /= psb_success_) goto 9999
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_err_unit,'(" ")') write(psb_err_unit,'(" ")')
write(psb_err_unit,'("Saving x on file")') write(psb_err_unit,'("Saving x on file")')

1
test/fileread/zf_sample.f90
Unescape Escape View File

@ -289,6 +289,7 @@ program zf_sample
call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_) call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
if (info == psb_success_) & if (info == psb_success_) &
& call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_) & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
if (info /= psb_success_) goto 9999
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_err_unit,'(" ")') write(psb_err_unit,'(" ")')
write(psb_err_unit,'("Saving x on file")') write(psb_err_unit,'("Saving x on file")')

Write Preview
Loading…
Cancel
Save