From 584c56497644f9a1137bec813a2714fd349c5a38 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 8 Dec 2015 17:32:41 +0000 Subject: [PATCH] psblas3: base/modules/psb_const_mod.F90 base/modules/psb_error_mod.F90 New error message for optional arguments needing to come in pairs. --- base/modules/psb_const_mod.F90 | 1 + base/modules/psb_error_mod.F90 | 7 +++++++ 2 files changed, 8 insertions(+) diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 4809fc01..ffdccd62 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -216,6 +216,7 @@ module psb_const_mod integer(psb_ipk_), parameter, public :: psb_err_no_optional_arg_=581 integer(psb_ipk_), parameter, public :: psb_err_arg_m_required_=582 integer(psb_ipk_), parameter, public :: psb_err_many_optional_arg_=583 + integer(psb_ipk_), parameter, public :: psb_err_optional_arg_pair_=584 integer(psb_ipk_), parameter, public :: psb_err_spmat_invalid_state_=600 integer(psb_ipk_), parameter, public :: psb_err_missing_override_method_=700 integer(psb_ipk_), parameter, public :: psb_err_invalid_dynamic_type_=701 diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index 0ea6f70c..5d249412 100644 --- a/base/modules/psb_error_mod.F90 +++ b/base/modules/psb_error_mod.F90 @@ -744,6 +744,13 @@ contains &'("One of the optional arguments ",a," must be present")')& & trim(a_e_d) + case(psb_err_optional_arg_pair_) + allocate(achmsg(2)) + achmsg(1) = tmpmsg + write(achmsg(2),& + &'("The optional arguments ",a," must be present together")')& + & trim(a_e_d) + case(psb_err_arg_m_required_) allocate(achmsg(2)) achmsg(1) = tmpmsg