Missing USE statement for psb_error_check, make it public

4 years ago · 875ef40724
parent aeb1397e9f
commit 875ef40724
2 changed files with 3 additions and 2 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -64,7 +64,8 @@ module psb_error_mod
       & psb_ser_error_handler, psb_par_error_handler, &
       & psb_ser_error_print_stack, psb_par_error_print_stack,&
       & psb_error_print_stack, psb_errmsg, psb_ach_errmsg, & 
-       & psb_set_global_checks, psb_clear_global_checks, psb_get_global_checks
+       & psb_set_global_checks, psb_clear_global_checks, psb_get_global_checks,&
+       & psb_check_error

  interface psb_error_handler
    subroutine psb_ser_error_handler(err_act)
--- a/cbind/base/psb_cpenv_mod.f90
+++ b/cbind/base/psb_cpenv_mod.f90
@ -133,7 +133,7 @@ contains
  end subroutine psb_c_abort

  subroutine psb_c_check_error(cctxt) bind(c)
-    use psb_base_mod, only : psb_init, psb_ctxt_type
+    use psb_base_mod, only : psb_init, psb_ctxt_type, psb_check_error
    implicit none

    type(psb_c_object_type)      :: cctxt