From 0fb9b0356af576e3c5198a1ded2b9496b398d2de Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 18 Dec 2014 16:53:14 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_error_mod.F90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index 19df5546..7c38d9f4 100644 --- a/base/modules/psb_error_mod.F90 +++ b/base/modules/psb_error_mod.F90 @@ -40,6 +40,8 @@ module psb_error_mod integer(psb_ipk_), parameter, public :: psb_no_err_ = 0 integer(psb_ipk_), parameter, public :: psb_err_warning_ = 1 integer(psb_ipk_), parameter, public :: psb_err_fatal_ = 2 + + integer(psb_ipk_), parameter, public :: psb_max_errmsg_len_ = 132 ! ! Error handling @@ -74,6 +76,7 @@ module psb_error_mod end subroutine psb_errcomm end interface psb_errcomm + #if defined(LONG_INTEGERS) interface psb_error module procedure psb_perror_ipk @@ -370,11 +373,11 @@ contains ! prints the error msg associated to a specific error code subroutine psb_errmsg(err_c, r_name, i_e_d, a_e_d,me) - integer(psb_ipk_), intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=20), intent(in) :: r_name character(len=40), intent(in) :: a_e_d - integer(psb_ipk_), intent(in) :: i_e_d(5) - integer(psb_mpik_), optional :: me + integer(psb_ipk_), intent(in) :: i_e_d(5) + integer(psb_mpik_), optional :: me if(present(me)) then write(psb_err_unit,&