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

Fix precbld.

Browse Source
This commit is contained in:
Salvatore Filippone
2017-12-07 10:36:35 +00:00
parent a628e9c873
commit 85ff0e404b
8 changed files with 12 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_d_bjacprec_impl.f90
+2 -3
View File
@@ -439,10 +439,9 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
ictxt=desc_a%get_context()
call psb_info(ictxt, me, np)
ictxt=desc_a%get_ctxt()
call prec%set_ctxt(ictxt)
call psb_info(ictxt, me, np)
m = a%get_nrows()
if (m < 0) then