fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Missing USE statement for psb_error_check, make it public

Browse Source
newG2L
Salvatore Filippone 4 years ago
parent aeb1397e9f
commit 875ef40724
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File

3
base/modules/psb_error_mod.F90
Unescape Escape View File

@ -64,7 +64,8 @@ module psb_error_mod
& psb_ser_error_handler, psb_par_error_handler, & & psb_ser_error_handler, psb_par_error_handler, &
& psb_ser_error_print_stack, psb_par_error_print_stack,& & psb_ser_error_print_stack, psb_par_error_print_stack,&
& psb_error_print_stack, psb_errmsg, psb_ach_errmsg, & & 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 interface psb_error_handler
subroutine psb_ser_error_handler(err_act) subroutine psb_ser_error_handler(err_act)

2
cbind/base/psb_cpenv_mod.f90
Unescape Escape View File

@ -133,7 +133,7 @@ contains
end subroutine psb_c_abort end subroutine psb_c_abort
subroutine psb_c_check_error(cctxt) bind(c) 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 implicit none
type(psb_c_object_type) :: cctxt type(psb_c_object_type) :: cctxt

Write Preview
Loading…
Cancel
Save