Fix precbld.

7 years ago · 85ff0e404b
parent a628e9c873
commit 85ff0e404b
8 changed files with 12 additions and 16 deletions
--- a/prec/impl/psb_c_bjacprec_impl.f90
+++ b/prec/impl/psb_c_bjacprec_impl.f90
@ -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()
-  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
--- a/prec/impl/psb_d_bjacprec_impl.f90
+++ b/prec/impl/psb_d_bjacprec_impl.f90
@ -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
--- a/prec/impl/psb_s_bjacprec_impl.f90
+++ b/prec/impl/psb_s_bjacprec_impl.f90
@ -439,10 +439,9 @@ subroutine psb_s_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
--- a/prec/impl/psb_z_bjacprec_impl.f90
+++ b/prec/impl/psb_z_bjacprec_impl.f90
@ -439,10 +439,9 @@ subroutine psb_z_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