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

Changed amg_precset to %set call to remove redundancy

Browse Source
This commit is contained in:
Cirdans-Home
2021-02-12 09:25:29 +01:00
parent 6beaf49275
commit 7f378e445d
2 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+8 -8
View File
@@ -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)
cbind/amgprec/amg_zprec_cbind_mod.F90
+8 -8
View File
@@ -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)