From 565b48ea90e7f6ef60e7e7d9fd1b2bf9356f3063 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 30 Jun 2018 15:47:36 +0100 Subject: [PATCH] Fixed wrong use of e_err instead of l_err. --- mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 | 2 +- mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 | 2 +- mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 | 2 +- mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 index 07b717a8..43230a41 100644 --- a/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_mat_asb.f90 @@ -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) diff --git a/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 index 98e630e8..754b88eb 100644 --- a/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_mat_asb.f90 @@ -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) diff --git a/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 index 32e0f377..76ea9a60 100644 --- a/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_mat_asb.f90 @@ -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) diff --git a/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 b/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 index cb540e34..7b8c138b 100644 --- a/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_mat_asb.f90 @@ -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)