Fix new C ctxt

merge-amgext
Salvatore Filippone 4 years ago
parent 661ff4e042
commit 32792507f5

@ -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);

@ -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);

@ -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

@ -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

Loading…
Cancel
Save