From 32792507f5b42c3779105dae97e69b6cf11d2a39 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 18 Nov 2020 16:04:37 +0100 Subject: [PATCH] Fix new C ctxt --- cbind/amgprec/amg_c_dprec.h | 2 +- cbind/amgprec/amg_c_zprec.h | 2 +- cbind/amgprec/amg_dprec_cbind_mod.F90 | 2 +- cbind/amgprec/amg_zprec_cbind_mod.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cbind/amgprec/amg_c_dprec.h b/cbind/amgprec/amg_c_dprec.h index 55f263f7..c097ca69 100644 --- a/cbind/amgprec/amg_c_dprec.h +++ b/cbind/amgprec/amg_c_dprec.h @@ -19,7 +19,7 @@ extern "C" { amg_c_dprec* amg_c_dprec_new(); psb_i_t amg_c_dprec_delete(amg_c_dprec* p); - psb_i_t amg_c_dprecinit(psb_i_t ictxt, amg_c_dprec *ph, const char *ptype); + psb_i_t amg_c_dprecinit(psb_c_ctxt cctxt, amg_c_dprec *ph, const char *ptype); psb_i_t amg_c_dprecseti(amg_c_dprec *ph, const char *what, psb_i_t val); psb_i_t amg_c_dprecsetc(amg_c_dprec *ph, const char *what, const char *val); psb_i_t amg_c_dprecsetr(amg_c_dprec *ph, const char *what, double val); diff --git a/cbind/amgprec/amg_c_zprec.h b/cbind/amgprec/amg_c_zprec.h index 5d17ba83..0e331e61 100644 --- a/cbind/amgprec/amg_c_zprec.h +++ b/cbind/amgprec/amg_c_zprec.h @@ -19,7 +19,7 @@ extern "C" { amg_c_zprec* amg_c_zprec_new(); psb_i_t amg_c_zprec_delete(amg_c_zprec* p); - psb_i_t amg_c_zprecinit(psb_i_t ictxt, amg_c_zprec *ph, const char *ptype); + psb_i_t amg_c_zprecinit(psb_c_ctxt cctxt, amg_c_zprec *ph, const char *ptype); psb_i_t amg_c_zprecseti(amg_c_zprec *ph, const char *what, psb_i_t val); psb_i_t amg_c_zprecsetc(amg_c_zprec *ph, const char *what, const char *val); psb_i_t amg_c_zprecsetr(amg_c_zprec *ph, const char *what, double val); diff --git a/cbind/amgprec/amg_dprec_cbind_mod.F90 b/cbind/amgprec/amg_dprec_cbind_mod.F90 index e3431d28..3839dc38 100644 --- a/cbind/amgprec/amg_dprec_cbind_mod.F90 +++ b/cbind/amgprec/amg_dprec_cbind_mod.F90 @@ -29,7 +29,7 @@ contains integer(psb_c_ipk_) :: res type(amg_c_dprec) :: ph - integer(psb_c_ipk_), value :: cctxt + type(psb_c_object_type), value :: cctxt character(c_char) :: ptype(*) integer :: info type(amg_dprec_type), pointer :: precp diff --git a/cbind/amgprec/amg_zprec_cbind_mod.F90 b/cbind/amgprec/amg_zprec_cbind_mod.F90 index 843de810..f063106d 100644 --- a/cbind/amgprec/amg_zprec_cbind_mod.F90 +++ b/cbind/amgprec/amg_zprec_cbind_mod.F90 @@ -29,7 +29,7 @@ contains integer(psb_c_ipk_) :: res type(amg_c_zprec) :: ph - integer(psb_c_ipk_), value :: cctxt + type(psb_c_object_type), value :: cctxt character(c_char) :: ptype(*) integer :: info type(amg_zprec_type), pointer :: precp