Changed amg_precset to %set call to remove redundancy

4 years ago · 7f378e445d
parent 6beaf49275
commit 7f378e445d
2 changed files with 16 additions and 16 deletions
--- 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)
--- 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)