mld2p4-2:

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.

mlprec/Makefile

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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)