*** empty log message ***

17 years ago · 4bbb70b17f
parent 759cb4ea09
commit 4bbb70b17f
1 changed files with 0 additions and 4 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -220,13 +220,9 @@ contains
    new_node%routine    = r_name
    if(present(i_err)) then
      new_node%i_err_data = i_err
    else 
      new_node%i_err_data = (/0,0,0,0,0/)
    end if
    if(present(a_err)) then 
      new_node%a_err_data = a_err
    else
      new_node%a_err_data = ''
    end if
    new_node%next       => error_stack%top
    error_stack%top     => new_node