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

Fixed wrong use of e_err instead of l_err.

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 2fbd732ee8
commit 565b48ea90
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
Unescape Escape View File

@ -164,7 +164,7 @@ subroutine mld_c_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
if (inl < nlaggr(me+1)) then if (inl < nlaggr(me+1)) then
info = psb_err_bad_int_cnv_ info = psb_err_bad_int_cnv_
call psb_errpush(info,name,& call psb_errpush(info,name,&
& e_err=(/nlaggr(me+1),inl*1_psb_lpk_/)) & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
goto 9999 goto 9999
end if end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl) if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)

2
mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
Unescape Escape View File

@ -164,7 +164,7 @@ subroutine mld_d_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
if (inl < nlaggr(me+1)) then if (inl < nlaggr(me+1)) then
info = psb_err_bad_int_cnv_ info = psb_err_bad_int_cnv_
call psb_errpush(info,name,& call psb_errpush(info,name,&
& e_err=(/nlaggr(me+1),inl*1_psb_lpk_/)) & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
goto 9999 goto 9999
end if end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl) if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)

2
mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
Unescape Escape View File

@ -164,7 +164,7 @@ subroutine mld_s_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
if (inl < nlaggr(me+1)) then if (inl < nlaggr(me+1)) then
info = psb_err_bad_int_cnv_ info = psb_err_bad_int_cnv_
call psb_errpush(info,name,& call psb_errpush(info,name,&
& e_err=(/nlaggr(me+1),inl*1_psb_lpk_/)) & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
goto 9999 goto 9999
end if end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl) if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)

2
mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
Unescape Escape View File

@ -164,7 +164,7 @@ subroutine mld_z_base_onelev_mat_asb(lv,a,desc_a,ilaggr,nlaggr,op_prol,info)
if (inl < nlaggr(me+1)) then if (inl < nlaggr(me+1)) then
info = psb_err_bad_int_cnv_ info = psb_err_bad_int_cnv_
call psb_errpush(info,name,& call psb_errpush(info,name,&
& e_err=(/nlaggr(me+1),inl*1_psb_lpk_/)) & l_err=(/nlaggr(me+1),inl*1_psb_lpk_/))
goto 9999 goto 9999
end if end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl) if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)

Write Preview
Loading…
Cancel
Save