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

Fix precbld.

Browse Source
pull/7/head
Salvatore Filippone 7 years ago
parent a628e9c873
commit 85ff0e404b
8 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File

5
prec/impl/psb_c_bjacprec_impl.f90
Unescape Escape View File

@ -439,10 +439,9 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act) 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) call prec%set_ctxt(ictxt)
call psb_info(ictxt, me, np)
m = a%get_nrows() m = a%get_nrows()
if (m < 0) then if (m < 0) then

2
prec/impl/psb_c_diagprec_impl.f90
Unescape Escape View File

@ -246,7 +246,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
info = psb_success_ info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt()) call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows() nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info) prec%d=a%get_diag(info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = psb_err_from_subroutine_ info = psb_err_from_subroutine_

5
prec/impl/psb_d_bjacprec_impl.f90
Unescape Escape View File

@ -439,10 +439,9 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act) 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) call prec%set_ctxt(ictxt)
call psb_info(ictxt, me, np)
m = a%get_nrows() m = a%get_nrows()
if (m < 0) then if (m < 0) then

2
prec/impl/psb_d_diagprec_impl.f90
Unescape Escape View File

@ -246,7 +246,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
info = psb_success_ info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt()) call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows() nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info) prec%d=a%get_diag(info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = psb_err_from_subroutine_ info = psb_err_from_subroutine_

5
prec/impl/psb_s_bjacprec_impl.f90
Unescape Escape View File

@ -439,10 +439,9 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act) 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) call prec%set_ctxt(ictxt)
call psb_info(ictxt, me, np)
m = a%get_nrows() m = a%get_nrows()
if (m < 0) then if (m < 0) then

2
prec/impl/psb_s_diagprec_impl.f90
Unescape Escape View File

@ -246,7 +246,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
info = psb_success_ info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt()) call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows() nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info) prec%d=a%get_diag(info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = psb_err_from_subroutine_ info = psb_err_from_subroutine_

5
prec/impl/psb_z_bjacprec_impl.f90
Unescape Escape View File

@ -439,10 +439,9 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act) 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) call prec%set_ctxt(ictxt)
call psb_info(ictxt, me, np)
m = a%get_nrows() m = a%get_nrows()
if (m < 0) then if (m < 0) then

2
prec/impl/psb_z_diagprec_impl.f90
Unescape Escape View File

@ -246,7 +246,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
info = psb_success_ info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt()) call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows() nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info) prec%d=a%get_diag(info)
if (info /= psb_success_) then if (info /= psb_success_) then
info = psb_err_from_subroutine_ info = psb_err_from_subroutine_

Write Preview
Loading…
Cancel
Save