*** empty log message ***

10 years ago · 0fb9b0356a
parent 27080a41fb
commit 0fb9b0356a
1 changed files with 6 additions and 3 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -41,6 +41,8 @@ module psb_error_mod
  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