From 7f378e445de7b74987e3ca54f032848a3097a306 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 12 Feb 2021 09:25:29 +0100 Subject: [PATCH] Changed amg_precset to %set call to remove redundancy --- cbind/amgprec/amg_dprec_cbind_mod.F90 | 16 ++++++++-------- cbind/amgprec/amg_zprec_cbind_mod.F90 | 16 ++++++++-------- 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/cbind/amgprec/amg_dprec_cbind_mod.F90 b/cbind/amgprec/amg_dprec_cbind_mod.F90 index 3839dc38..5255916f 100644 --- a/cbind/amgprec/amg_dprec_cbind_mod.F90 +++ b/cbind/amgprec/amg_dprec_cbind_mod.F90 @@ -77,7 +77,7 @@ contains call stringc2f(what,fwhat) - call amg_precset(precp,fwhat,val,info) + call precp%set(fwhat,val,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -107,7 +107,7 @@ contains call stringc2f(what,fwhat) - call amg_precset(precp,fwhat,val,info) + call precp%set(fwhat,val,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -136,7 +136,7 @@ contains call stringc2f(what,fwhat) call stringc2f(val,fval) - call amg_precset(precp,fwhat,fval,info) + call precp%set(fwhat,fval,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -381,12 +381,12 @@ contains use psb_base_mod use amg_prec_mod implicit none - + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: ph integer :: info type(amg_dprec_type), pointer :: precp - + res = -1 info = -1 if (c_associated(ph%item)) then @@ -394,11 +394,11 @@ contains else return end if - - + + call precp%descr() call flush(psb_out_unit) - + info = 0 res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) diff --git a/cbind/amgprec/amg_zprec_cbind_mod.F90 b/cbind/amgprec/amg_zprec_cbind_mod.F90 index f063106d..d93e55f5 100644 --- a/cbind/amgprec/amg_zprec_cbind_mod.F90 +++ b/cbind/amgprec/amg_zprec_cbind_mod.F90 @@ -77,7 +77,7 @@ contains call stringc2f(what,fwhat) - call amg_precset(precp,fwhat,val,info) + call precp%set(fwhat,val,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -107,7 +107,7 @@ contains call stringc2f(what,fwhat) - call amg_precset(precp,fwhat,val,info) + call precp%set(fwhat,val,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -136,7 +136,7 @@ contains call stringc2f(what,fwhat) call stringc2f(val,fval) - call amg_precset(precp,fwhat,fval,info) + call precp%set(fwhat,fval,info) res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res) @@ -381,12 +381,12 @@ contains use psb_base_mod use amg_prec_mod implicit none - + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: ph integer :: info type(amg_zprec_type), pointer :: precp - + res = -1 info = -1 if (c_associated(ph%item)) then @@ -394,11 +394,11 @@ contains else return end if - - + + call precp%descr() call flush(psb_out_unit) - + info = 0 res = MLDC_ERR_FILTER(info) MLDC_ERR_HANDLE(res)