*** empty log message ***

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