From 7398693f57b650bda57edb7967cb3964f898d04e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 2 Apr 2020 13:01:06 +0200 Subject: [PATCH] Fix error message args for LPK4/LP8 --- mlprec/impl/solver/mld_c_mumps_solver_apply.F90 | 5 +++-- mlprec/impl/solver/mld_d_mumps_solver_apply.F90 | 5 +++-- mlprec/impl/solver/mld_s_mumps_solver_apply.F90 | 5 +++-- mlprec/impl/solver/mld_z_mumps_solver_apply.F90 | 5 +++-- 4 files changed, 12 insertions(+), 8 deletions(-) diff --git a/mlprec/impl/solver/mld_c_mumps_solver_apply.F90 b/mlprec/impl/solver/mld_c_mumps_solver_apply.F90 index 7424e6aa..a0745cce 100644 --- a/mlprec/impl/solver/mld_c_mumps_solver_apply.F90 +++ b/mlprec/impl/solver/mld_c_mumps_solver_apply.F90 @@ -57,6 +57,7 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& integer(psb_ipk_) :: n_row, n_col integer(psb_lpk_) :: nglob + integer(psb_epk_) :: eng complex(psb_spk_), allocatable :: ww(:) complex(psb_spk_), allocatable, target :: gx(:) integer(psb_ipk_) :: ictxt,np,me,i, err_act @@ -101,8 +102,8 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& end if allocate(gx(nglob),stat=info) if (info /= psb_success_) then - info=psb_err_alloc_request_ - call psb_errpush(info,name,e_err=(/nglob/),& + info=psb_err_alloc_request_; eng=nglob + call psb_errpush(info,name,e_err=(/eng/),& & a_err='complex(psb_spk_)') goto 9999 end if diff --git a/mlprec/impl/solver/mld_d_mumps_solver_apply.F90 b/mlprec/impl/solver/mld_d_mumps_solver_apply.F90 index 8b77ae6b..9fd77dbf 100644 --- a/mlprec/impl/solver/mld_d_mumps_solver_apply.F90 +++ b/mlprec/impl/solver/mld_d_mumps_solver_apply.F90 @@ -57,6 +57,7 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& integer(psb_ipk_) :: n_row, n_col integer(psb_lpk_) :: nglob + integer(psb_epk_) :: eng real(psb_dpk_), allocatable :: ww(:) real(psb_dpk_), allocatable, target :: gx(:) integer(psb_ipk_) :: ictxt,np,me,i, err_act @@ -101,8 +102,8 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& end if allocate(gx(nglob),stat=info) if (info /= psb_success_) then - info=psb_err_alloc_request_ - call psb_errpush(info,name,e_err=(/nglob/),& + info=psb_err_alloc_request_; eng=nglob + call psb_errpush(info,name,e_err=(/eng/),& & a_err='real(psb_dpk_)') goto 9999 end if diff --git a/mlprec/impl/solver/mld_s_mumps_solver_apply.F90 b/mlprec/impl/solver/mld_s_mumps_solver_apply.F90 index 01ba296d..05de07be 100644 --- a/mlprec/impl/solver/mld_s_mumps_solver_apply.F90 +++ b/mlprec/impl/solver/mld_s_mumps_solver_apply.F90 @@ -57,6 +57,7 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& integer(psb_ipk_) :: n_row, n_col integer(psb_lpk_) :: nglob + integer(psb_epk_) :: eng real(psb_spk_), allocatable :: ww(:) real(psb_spk_), allocatable, target :: gx(:) integer(psb_ipk_) :: ictxt,np,me,i, err_act @@ -101,8 +102,8 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& end if allocate(gx(nglob),stat=info) if (info /= psb_success_) then - info=psb_err_alloc_request_ - call psb_errpush(info,name,e_err=(/nglob/),& + info=psb_err_alloc_request_; eng=nglob + call psb_errpush(info,name,e_err=(/eng/),& & a_err='real(psb_spk_)') goto 9999 end if diff --git a/mlprec/impl/solver/mld_z_mumps_solver_apply.F90 b/mlprec/impl/solver/mld_z_mumps_solver_apply.F90 index d39517f7..50ca902e 100644 --- a/mlprec/impl/solver/mld_z_mumps_solver_apply.F90 +++ b/mlprec/impl/solver/mld_z_mumps_solver_apply.F90 @@ -57,6 +57,7 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& integer(psb_ipk_) :: n_row, n_col integer(psb_lpk_) :: nglob + integer(psb_epk_) :: eng complex(psb_dpk_), allocatable :: ww(:) complex(psb_dpk_), allocatable, target :: gx(:) integer(psb_ipk_) :: ictxt,np,me,i, err_act @@ -101,8 +102,8 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,& end if allocate(gx(nglob),stat=info) if (info /= psb_success_) then - info=psb_err_alloc_request_ - call psb_errpush(info,name,e_err=(/nglob/),& + info=psb_err_alloc_request_; eng=nglob + call psb_errpush(info,name,e_err=(/eng/),& & a_err='complex(psb_dpk_)') goto 9999 end if