mld2p4-2:

mlprec/impl/Makefile mlprec/impl/level/mld_c_base_onelev_csetc.f90 mlprec/impl/level/mld_c_base_onelev_cseti.f90 mlprec/impl/level/mld_c_base_onelev_csetr.f90 mlprec/impl/level/mld_c_base_onelev_setc.f90 mlprec/impl/level/mld_d_base_onelev_csetc.f90 mlprec/impl/level/mld_d_base_onelev_cseti.f90 mlprec/impl/level/mld_d_base_onelev_csetr.f90 mlprec/impl/level/mld_d_base_onelev_setc.f90 mlprec/impl/level/mld_s_base_onelev_csetc.f90 mlprec/impl/level/mld_s_base_onelev_cseti.f90 mlprec/impl/level/mld_s_base_onelev_csetr.f90 mlprec/impl/level/mld_s_base_onelev_setc.f90 mlprec/impl/level/mld_z_base_onelev_csetc.f90 mlprec/impl/level/mld_z_base_onelev_cseti.f90 mlprec/impl/level/mld_z_base_onelev_csetr.f90 mlprec/impl/level/mld_z_base_onelev_setc.f90 mlprec/impl/mld_ccprecset.F90 mlprec/impl/mld_cprecset.F90 mlprec/impl/mld_dcprecset.F90 mlprec/impl/mld_scprecset.F90 mlprec/impl/mld_sprecset.F90 mlprec/impl/mld_zcprecset.F90 mlprec/impl/mld_zprecset.F90 mlprec/impl/smoother/Makefile mlprec/impl/smoother/mld_c_as_smoother_csetc.f90 mlprec/impl/smoother/mld_c_as_smoother_cseti.f90 mlprec/impl/smoother/mld_c_as_smoother_setc.f90 mlprec/impl/smoother/mld_c_as_smoother_seti.f90 mlprec/impl/smoother/mld_c_base_smoother_csetc.f90 mlprec/impl/smoother/mld_c_base_smoother_setc.f90 mlprec/impl/smoother/mld_d_as_smoother_csetc.f90 mlprec/impl/smoother/mld_d_as_smoother_cseti.f90 mlprec/impl/smoother/mld_d_as_smoother_setc.f90 mlprec/impl/smoother/mld_d_as_smoother_seti.f90 mlprec/impl/smoother/mld_d_base_smoother_csetc.f90 mlprec/impl/smoother/mld_d_base_smoother_setc.f90 mlprec/impl/smoother/mld_s_as_smoother_csetc.f90 mlprec/impl/smoother/mld_s_as_smoother_cseti.f90 mlprec/impl/smoother/mld_s_as_smoother_setc.f90 mlprec/impl/smoother/mld_s_as_smoother_seti.f90 mlprec/impl/smoother/mld_s_base_smoother_csetc.f90 mlprec/impl/smoother/mld_s_base_smoother_setc.f90 mlprec/impl/smoother/mld_z_as_smoother_csetc.f90 mlprec/impl/smoother/mld_z_as_smoother_cseti.f90 mlprec/impl/smoother/mld_z_as_smoother_setc.f90 mlprec/impl/smoother/mld_z_as_smoother_seti.f90 mlprec/impl/smoother/mld_z_base_smoother_csetc.f90 mlprec/impl/smoother/mld_z_base_smoother_setc.f90 mlprec/impl/solver/mld_c_base_solver_csetc.f90 mlprec/impl/solver/mld_c_base_solver_setc.f90 mlprec/impl/solver/mld_d_base_solver_csetc.f90 mlprec/impl/solver/mld_d_base_solver_setc.f90 mlprec/impl/solver/mld_s_base_solver_csetc.f90 mlprec/impl/solver/mld_s_base_solver_setc.f90 mlprec/impl/solver/mld_z_base_solver_csetc.f90 mlprec/impl/solver/mld_z_base_solver_setc.f90 mlprec/mld_c_as_smoother.f90 mlprec/mld_c_base_smoother_mod.f90 mlprec/mld_c_base_solver_mod.f90 mlprec/mld_c_diag_solver.f90 mlprec/mld_c_id_solver.f90 mlprec/mld_c_ilu_solver.f90 mlprec/mld_c_jac_smoother.f90 mlprec/mld_c_onelev_mod.f90 mlprec/mld_c_slu_solver.F90 mlprec/mld_c_sludist_solver.F90 mlprec/mld_c_umf_solver.F90 mlprec/mld_d_as_smoother.f90 mlprec/mld_d_base_smoother_mod.f90 mlprec/mld_d_base_solver_mod.f90 mlprec/mld_d_diag_solver.f90 mlprec/mld_d_id_solver.f90 mlprec/mld_d_ilu_solver.f90 mlprec/mld_d_jac_smoother.f90 mlprec/mld_d_onelev_mod.f90 mlprec/mld_d_slu_solver.F90 mlprec/mld_d_sludist_solver.F90 mlprec/mld_d_umf_solver.F90 mlprec/mld_s_as_smoother.f90 mlprec/mld_s_base_smoother_mod.f90 mlprec/mld_s_base_solver_mod.f90 mlprec/mld_s_diag_solver.f90 mlprec/mld_s_id_solver.f90 mlprec/mld_s_ilu_solver.f90 mlprec/mld_s_jac_smoother.f90 mlprec/mld_s_onelev_mod.f90 mlprec/mld_s_slu_solver.F90 mlprec/mld_s_sludist_solver.F90 mlprec/mld_s_umf_solver.F90 mlprec/mld_z_as_smoother.f90 mlprec/mld_z_base_smoother_mod.f90 mlprec/mld_z_base_solver_mod.f90 mlprec/mld_z_diag_solver.f90 mlprec/mld_z_id_solver.f90 mlprec/mld_z_ilu_solver.f90 mlprec/mld_z_jac_smoother.f90 mlprec/mld_z_onelev_mod.f90 mlprec/mld_z_slu_solver.F90 mlprec/mld_z_sludist_solver.F90 mlprec/mld_z_umf_solver.F90 Reworked SET methods. Made stringval a method at the various level. Basic idea: to have derived classes override the base SET when needed. They should recognize any new argument, and possibly call the base method otherwise.
2026-10-20 12:52:16 +00:00 · 2013-03-08 11:05:23 +00:00
parent 447a21b7f5
commit 37d8c2763e
101 changed files with 2433 additions and 2871 deletions
@@ -56,7 +56,7 @@ subroutine mld_c_base_onelev_csetc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -54,7 +54,7 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info)
  call psb_erractionsave(err_act)
  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('SMOOTHER_SWEEPS')
    lv%parms%sweeps      = val
@@ -56,7 +56,7 @@ subroutine mld_c_base_onelev_csetr(lv,what,val,info)

  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('AGGR_OMEGA_VAL')
    lv%parms%aggr_omega_val= val
@@ -56,7 +56,7 @@ subroutine mld_c_base_onelev_setc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -56,7 +56,7 @@ subroutine mld_d_base_onelev_csetc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -54,7 +54,7 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info)
  call psb_erractionsave(err_act)
  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('SMOOTHER_SWEEPS')
    lv%parms%sweeps      = val
@@ -56,7 +56,7 @@ subroutine mld_d_base_onelev_csetr(lv,what,val,info)

  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('AGGR_OMEGA_VAL')
    lv%parms%aggr_omega_val= val
@@ -56,7 +56,7 @@ subroutine mld_d_base_onelev_setc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -56,7 +56,7 @@ subroutine mld_s_base_onelev_csetc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -54,7 +54,7 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info)
  call psb_erractionsave(err_act)
  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('SMOOTHER_SWEEPS')
    lv%parms%sweeps      = val
@@ -56,7 +56,7 @@ subroutine mld_s_base_onelev_csetr(lv,what,val,info)

  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('AGGR_OMEGA_VAL')
    lv%parms%aggr_omega_val= val
@@ -56,7 +56,7 @@ subroutine mld_s_base_onelev_setc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -56,7 +56,7 @@ subroutine mld_z_base_onelev_csetc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else
@@ -54,7 +54,7 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info)
  call psb_erractionsave(err_act)
  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('SMOOTHER_SWEEPS')
    lv%parms%sweeps      = val
@@ -56,7 +56,7 @@ subroutine mld_z_base_onelev_csetr(lv,what,val,info)

  info = psb_success_

-  select case (what) 
+  select case (psb_toupper(what))

  case ('AGGR_OMEGA_VAL')
    lv%parms%aggr_omega_val= val
@@ -56,7 +56,7 @@ subroutine mld_z_base_onelev_setc(lv,what,val,info)

  info = psb_success_

-  ival = mld_stringval(val)
+  ival = lv%stringval(val)
  if (ival >= 0) then 
    call lv%set(what,ival,info)
  else