fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix copy of ictxt in prec%build.

Browse Source
This commit is contained in:
Salvatore Filippone
2017-11-12 18:05:56 +00:00
parent a044889257
commit a628e9c873
16 changed files with 8 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_c_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_d_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_s_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_z_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)