fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix name of CTXT variable

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-17 14:36:29 +01:00
parent c14ce5409e
commit b751d726a1
298 changed files with 3664 additions and 3379 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+3 -3
View File
@@ -22,14 +22,14 @@ contains
#define MLDC_ERR_FILTER(INFO) (INFO)
#define MLDC_ERR_HANDLE(INFO) if(INFO/=mld_success_)MLDC_ERROR("ERROR!")
function mld_c_dprecinit(ictxt,ph,ptype) bind(c) result(res)
function mld_c_dprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use mld_prec_mod
implicit none
integer(psb_c_ipk_) :: res
type(mld_c_dprec) :: ph
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
character(c_char) :: ptype(*)
integer :: info
type(mld_dprec_type), pointer :: precp
@@ -48,7 +48,7 @@ contains
call stringc2f(ptype,fptype)
call precp%init(ictxt,fptype,info)
call precp%init(cctxt,fptype,info)
res = MLDC_ERR_FILTER(info)
MLDC_ERR_HANDLE(res)
cbind/amgprec/amg_zprec_cbind_mod.F90
+3 -3
View File
@@ -22,14 +22,14 @@ contains
#define MLDC_ERR_FILTER(INFO) (INFO)
#define MLDC_ERR_HANDLE(INFO) if(INFO/=mld_success_)MLDC_ERROR("ERROR!")
function mld_c_zprecinit(ictxt,ph,ptype) bind(c) result(res)
function mld_c_zprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use mld_prec_mod
implicit none
integer(psb_c_ipk_) :: res
type(mld_c_zprec) :: ph
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
character(c_char) :: ptype(*)
integer :: info
type(mld_zprec_type), pointer :: precp
@@ -48,7 +48,7 @@ contains
call stringc2f(ptype,fptype)
call precp%init(ictxt,fptype,info)
call precp%init(cctxt,fptype,info)
res = MLDC_ERR_FILTER(info)
MLDC_ERR_HANDLE(res)