@ -439,10 +439,9 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
ictxt=desc_a%get_context()
ictxt=desc_a%get_ctxt()
call psb_info(ictxt, me, np)
call prec%set_ctxt(ictxt)
m = a%get_nrows()
if (m < 0) then
@ -439,10 +439,9 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
@ -439,10 +439,9 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
@ -439,10 +439,9 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)