fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 20:02:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

c_check_error() should take ctxt by value

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 14:16:14 +01:00
parent e60f4a2612
commit 4c91ab66f2
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_base.h
+1 -1
View File
@@ -49,7 +49,7 @@ extern "C" {
void psb_c_check_error(psb_c_ctxt *cctxt);
void psb_c_check_error(psb_c_ctxt cctxt);
psb_i_t psb_c_error();
psb_i_t psb_c_clean_errstack();
void psb_c_print_errmsg();
cbind/base/psb_cpenv_mod.f90
+2 -2
View File
@@ -136,8 +136,8 @@ contains
use psb_base_mod, only : psb_init, psb_ctxt_type, psb_check_error
implicit none
type(psb_c_object_type) :: cctxt
type(psb_ctxt_type), pointer :: ctxt
type(psb_c_object_type), value :: cctxt
type(psb_ctxt_type), pointer :: ctxt
integer :: info
if (c_associated(cctxt%item)) then