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

mld2p4-2:

Browse Source 
mlprec/Makefile
 mlprec/mld_c_as_smoother.f90
 mlprec/mld_d_as_smoother.f90
 mlprec/mld_s_as_smoother.f90
 mlprec/mld_z_as_smoother.f90

1. No UMF for S and C.
2. Fix as_smoother to use %GET_VECT() and not assignment.
This commit is contained in:
Salvatore Filippone
2011-12-14 14:09:20 +00:00
parent 86b1b661a8
commit 645e91557f
5 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/Makefile
+4 -4
View File
@@ -14,7 +14,7 @@ DMODOBJS=mld_d_prec_type.o mld_d_prec_mod.o mld_d_move_alloc_mod.o mld_d_ilu_fac
SMODOBJS=mld_s_prec_type.o mld_s_prec_mod.o mld_s_move_alloc_mod.o mld_s_ilu_fact_mod.o \
mld_s_inner_mod.o mld_s_ilu_solver.o mld_s_diag_solver.o mld_s_jac_smoother.o mld_s_as_smoother.o \
mld_s_umf_solver.o mld_s_slu_solver.o mld_s_sludist_solver.o mld_s_id_solver.o\
mld_s_slu_solver.o mld_s_sludist_solver.o mld_s_id_solver.o\
mld_s_base_solver_mod.o mld_s_base_smoother_mod.o mld_s_onelev_mod.o
ZMODOBJS=mld_z_prec_type.o mld_z_prec_mod.o mld_z_move_alloc_mod.o mld_z_ilu_fact_mod.o \
@@ -24,7 +24,7 @@ ZMODOBJS=mld_z_prec_type.o mld_z_prec_mod.o mld_z_move_alloc_mod.o mld_z_ilu_fac
CMODOBJS=mld_c_prec_type.o mld_c_prec_mod.o mld_c_move_alloc_mod.o mld_c_ilu_fact_mod.o \
mld_c_inner_mod.o mld_c_ilu_solver.o mld_c_diag_solver.o mld_c_jac_smoother.o mld_c_as_smoother.o \
mld_c_umf_solver.o mld_c_slu_solver.o mld_c_sludist_solver.o mld_c_id_solver.o\
mld_c_slu_solver.o mld_c_sludist_solver.o mld_c_id_solver.o\
mld_c_base_solver_mod.o mld_c_base_smoother_mod.o mld_c_onelev_mod.o
@@ -169,7 +169,7 @@ mld_dprecinit.o mld_dprecset.o: mld_d_diag_solver.o mld_d_ilu_solver.o \
mld_d_id_solver.o mld_d_slu_solver.o mld_d_sludist_solver.o
mld_s_id_solver.o mld_s_sludist_solver.o mld_s_slu_solver.o \
mld_s_umf_solver.o mld_s_diag_solver.o mld_s_ilu_solver.o: mld_s_base_solver_mod.o mld_s_prec_type.o
mld_s_diag_solver.o mld_s_ilu_solver.o: mld_s_base_solver_mod.o mld_s_prec_type.o
mld_s_ilu_fact_mod.o: mld_base_prec_type.o
mld_s_ilu_solver.o mld_s_iluk_fact.o: mld_s_ilu_fact_mod.o
mld_s_as_smoother.o mld_s_jac_smoother.o: mld_s_base_smoother_mod.o
@@ -189,7 +189,7 @@ mld_zprecinit.o mld_zprecset.o: mld_z_diag_solver.o mld_z_ilu_solver.o \
mld_z_id_solver.o mld_z_slu_solver.o mld_z_sludist_solver.o
mld_c_id_solver.o mld_c_sludist_solver.o mld_c_slu_solver.o \
mld_c_umf_solver.o mld_c_diag_solver.o mld_c_ilu_solver.o: mld_c_base_solver_mod.o mld_c_prec_type.o
mld_c_diag_solver.o mld_c_ilu_solver.o: mld_c_base_solver_mod.o mld_c_prec_type.o
mld_c_ilu_fact_mod.o: mld_base_prec_type.o
mld_c_ilu_solver.o mld_c_iluk_fact.o: mld_c_ilu_fact_mod.o
mld_c_as_smoother.o mld_c_jac_smoother.o: mld_c_base_smoother_mod.o
mlprec/mld_c_as_smoother.f90
+1 -1
View File
@@ -252,7 +252,7 @@ contains
else
vx = x%getCopy()
vx = x%get_vect()
call psb_geall(vtx,sm%desc_data,info)
call psb_geasb(vtx,sm%desc_data,info,mold=x%v)
mlprec/mld_d_as_smoother.f90
+1 -1
View File
@@ -252,7 +252,7 @@ contains
else
vx = x%getCopy()
vx = x%get_vect()
call psb_geall(vtx,sm%desc_data,info)
call psb_geasb(vtx,sm%desc_data,info,mold=x%v)
mlprec/mld_s_as_smoother.f90
+1 -1
View File
@@ -252,7 +252,7 @@ contains
else
vx = x%getCopy()
vx = x%get_vect()
call psb_geall(vtx,sm%desc_data,info)
call psb_geasb(vtx,sm%desc_data,info,mold=x%v)
mlprec/mld_z_as_smoother.f90
+1 -1
View File
@@ -252,7 +252,7 @@ contains
else
vx = x%getCopy()
vx = x%get_vect()
call psb_geall(vtx,sm%desc_data,info)
call psb_geasb(vtx,sm%desc_data,info,mold=x%v)