mld2p4-299:

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]
11 years ago · 1ffd9b9f7d
parent 4ee40c1577
commit 1ffd9b9f7d
8 changed files with 12 additions and 12 deletions
--- 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') 
--- 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') 
--- 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') 
--- 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') 
--- 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
--- 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
--- 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
--- 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