From a1ad85f3514140339e3a9f2b094196619609005c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 19 Jun 2018 11:41:46 +0100 Subject: [PATCH] Conditional compilation with LPK8; will need a better long term soluton. --- mlprec/mld_d_sludist_solver.F90 | 4 ++-- mlprec/mld_z_sludist_solver.F90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mlprec/mld_d_sludist_solver.F90 b/mlprec/mld_d_sludist_solver.F90 index 442ab913..23da6dfd 100644 --- a/mlprec/mld_d_sludist_solver.F90 +++ b/mlprec/mld_d_sludist_solver.F90 @@ -52,7 +52,7 @@ module mld_d_sludist_solver use iso_c_binding use mld_d_base_solver_mod -#if defined(LONG_INTEGERS) +#if defined(LPK8) type, extends(mld_d_base_solver_type) :: mld_d_sludist_solver_type @@ -167,7 +167,7 @@ contains allocate(ww(n_col),stat=info) if (info /= psb_success_) then info=psb_err_alloc_request_ - call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),& + call psb_errpush(info,name,i_err=(/n_col/),& & a_err='real(psb_dpk_)') goto 9999 end if diff --git a/mlprec/mld_z_sludist_solver.F90 b/mlprec/mld_z_sludist_solver.F90 index 0f19bad0..883465eb 100644 --- a/mlprec/mld_z_sludist_solver.F90 +++ b/mlprec/mld_z_sludist_solver.F90 @@ -52,7 +52,7 @@ module mld_z_sludist_solver use iso_c_binding use mld_z_base_solver_mod -#if defined(LONG_INTEGERS) +#if defined(LPK8) type, extends(mld_z_base_solver_type) :: mld_z_sludist_solver_type @@ -167,7 +167,7 @@ contains allocate(ww(n_col),stat=info) if (info /= psb_success_) then info=psb_err_alloc_request_ - call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),& + call psb_errpush(info,name,i_err=(/n_col/),& & a_err='complex(psb_dpk_)') goto 9999 end if