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

mld2p4-2:

Browse Source 
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]
This commit is contained in:
Salvatore Filippone
2013-08-28 13:25:34 +00:00
parent 1d40ab3303
commit 63fb29c858
8 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/smoother/mld_c_as_smoother_cseti.f90
+1 -1
View File
@@ -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')
mlprec/impl/smoother/mld_d_as_smoother_cseti.f90
+1 -1
View File
@@ -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')
mlprec/impl/smoother/mld_s_as_smoother_cseti.f90
+1 -1
View File
@@ -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')
mlprec/impl/smoother/mld_z_as_smoother_cseti.f90
+1 -1
View File
@@ -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')
mlprec/mld_c_ilu_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_d_ilu_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_s_ilu_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_z_ilu_solver.f90
+2 -2
View File
@@ -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