fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2014-12-18 16:53:14 +00:00
parent 27080a41fb
commit 0fb9b0356a
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_mod.F90
+6 -3
View File
@@ -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,&