From 63fb29c8588cc4e2854cdc00f5c8a8f2482cdef6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 28 Aug 2013 13:25:34 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 mlprec/mld_c_ilu_solver.f90 mlprec/mld_d_ilu_solver.f90 mlprec/mld_s_ilu_solver.f90 mlprec/mld_z_ilu_solver.f90 Silly bug: missing psb_toupper in cset[ir] --- mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 | 2 +- mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 | 2 +- mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 | 2 +- mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 | 2 +- mlprec/mld_c_ilu_solver.f90 | 4 ++-- mlprec/mld_d_ilu_solver.f90 | 4 ++-- mlprec/mld_s_ilu_solver.f90 | 4 ++-- mlprec/mld_z_ilu_solver.f90 | 4 ++-- 8 files changed, 12 insertions(+), 12 deletions(-) diff --git a/mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 b/mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 index 1066ec90..5325be0d 100644 --- a/mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 +++ b/mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 @@ -53,7 +53,7 @@ subroutine mld_c_as_smoother_cseti(sm,what,val,info) info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_OVR') sm%novr = val case('SUB_RESTR') diff --git a/mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 b/mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 index 37c162aa..7918545d 100644 --- a/mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 +++ b/mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 @@ -53,7 +53,7 @@ subroutine mld_d_as_smoother_cseti(sm,what,val,info) info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_OVR') sm%novr = val case('SUB_RESTR') diff --git a/mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 b/mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 index 05277aea..a2d2d0f4 100644 --- a/mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 +++ b/mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 @@ -53,7 +53,7 @@ subroutine mld_s_as_smoother_cseti(sm,what,val,info) info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_OVR') sm%novr = val case('SUB_RESTR') diff --git a/mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 b/mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 index f137d62e..307cac91 100644 --- a/mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 +++ b/mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 @@ -53,7 +53,7 @@ subroutine mld_z_as_smoother_cseti(sm,what,val,info) info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_OVR') sm%novr = val case('SUB_RESTR') diff --git a/mlprec/mld_c_ilu_solver.f90 b/mlprec/mld_c_ilu_solver.f90 index 5018cdc8..f3cc98c4 100644 --- a/mlprec/mld_c_ilu_solver.f90 +++ b/mlprec/mld_c_ilu_solver.f90 @@ -350,7 +350,7 @@ contains info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_SOLVE') sv%fact_type = val case('SUB_FILLIN') @@ -425,7 +425,7 @@ contains call psb_erractionsave(err_act) info = psb_success_ - select case(what) + select case(psb_toupper(what)) case('SUB_ILUTHRS') sv%thresh = val case default diff --git a/mlprec/mld_d_ilu_solver.f90 b/mlprec/mld_d_ilu_solver.f90 index 4e45fed5..9a4aa7eb 100644 --- a/mlprec/mld_d_ilu_solver.f90 +++ b/mlprec/mld_d_ilu_solver.f90 @@ -350,7 +350,7 @@ contains info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_SOLVE') sv%fact_type = val case('SUB_FILLIN') @@ -425,7 +425,7 @@ contains call psb_erractionsave(err_act) info = psb_success_ - select case(what) + select case(psb_toupper(what)) case('SUB_ILUTHRS') sv%thresh = val case default diff --git a/mlprec/mld_s_ilu_solver.f90 b/mlprec/mld_s_ilu_solver.f90 index 68297ee7..bd096437 100644 --- a/mlprec/mld_s_ilu_solver.f90 +++ b/mlprec/mld_s_ilu_solver.f90 @@ -350,7 +350,7 @@ contains info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_SOLVE') sv%fact_type = val case('SUB_FILLIN') @@ -425,7 +425,7 @@ contains call psb_erractionsave(err_act) info = psb_success_ - select case(what) + select case(psb_toupper(what)) case('SUB_ILUTHRS') sv%thresh = val case default diff --git a/mlprec/mld_z_ilu_solver.f90 b/mlprec/mld_z_ilu_solver.f90 index 9b87f37d..1a41baf4 100644 --- a/mlprec/mld_z_ilu_solver.f90 +++ b/mlprec/mld_z_ilu_solver.f90 @@ -350,7 +350,7 @@ contains info = psb_success_ call psb_erractionsave(err_act) - select case(what) + select case(psb_toupper(what)) case('SUB_SOLVE') sv%fact_type = val case('SUB_FILLIN') @@ -425,7 +425,7 @@ contains call psb_erractionsave(err_act) info = psb_success_ - select case(what) + select case(psb_toupper(what)) case('SUB_ILUTHRS') sv%thresh = val case default