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

Fixed wrong use of e_err instead of l_err.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-06-30 15:47:36 +01:00
parent 2fbd732ee8
commit 565b48ea90
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_mat_asb.f90
+1 -1
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
info = psb_err_bad_int_cnv_
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
end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
mlprec/impl/level/mld_d_base_onelev_mat_asb.f90
+1 -1
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
info = psb_err_bad_int_cnv_
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
end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
mlprec/impl/level/mld_s_base_onelev_mat_asb.f90
+1 -1
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
info = psb_err_bad_int_cnv_
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
end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)
mlprec/impl/level/mld_z_base_onelev_mat_asb.f90
+1 -1
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
info = psb_err_bad_int_cnv_
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
end if
if (info == psb_success_) call psb_cdall(ictxt,lv%desc_ac,info,nl=inl)