mld2p4-smooth-2side:

mlprec/mld_base_prec_type.F90
 tests/fileread/Makefile
 tests/fileread/df_sample.f90

Fixed parm clone.
stopcriterion
Salvatore Filippone 9 years ago
parent a1d88c2bbf
commit c83b19dea1

@ -961,6 +961,7 @@ contains
call psb_bcast(ictxt,dat%ml_type,root) call psb_bcast(ictxt,dat%ml_type,root)
call psb_bcast(ictxt,dat%smoother_pos,root) call psb_bcast(ictxt,dat%smoother_pos,root)
call psb_bcast(ictxt,dat%aggr_alg,root) call psb_bcast(ictxt,dat%aggr_alg,root)
call psb_bcast(ictxt,dat%aggr_ord,root)
call psb_bcast(ictxt,dat%aggr_kind,root) call psb_bcast(ictxt,dat%aggr_kind,root)
call psb_bcast(ictxt,dat%aggr_omega_alg,root) call psb_bcast(ictxt,dat%aggr_omega_alg,root)
call psb_bcast(ictxt,dat%aggr_eig,root) call psb_bcast(ictxt,dat%aggr_eig,root)
@ -1007,6 +1008,7 @@ contains
pmout%ml_type = pm%ml_type pmout%ml_type = pm%ml_type
pmout%smoother_pos = pm%smoother_pos pmout%smoother_pos = pm%smoother_pos
pmout%aggr_alg = pm%aggr_alg pmout%aggr_alg = pm%aggr_alg
pmout%aggr_ord = pm%aggr_ord
pmout%aggr_kind = pm%aggr_kind pmout%aggr_kind = pm%aggr_kind
pmout%aggr_omega_alg = pm%aggr_omega_alg pmout%aggr_omega_alg = pm%aggr_omega_alg
pmout%aggr_eig = pm%aggr_eig pmout%aggr_eig = pm%aggr_eig

@ -16,7 +16,8 @@ ZFSOBJS=zf_sample.o data_input.o
EXEDIR=./runs EXEDIR=./runs
all: sf_sample df_sample cf_sample zf_sample df_sample_alya all: sf_sample df_sample cf_sample zf_sample
#df_sample_alya
df-sample_aya: df-sample_aya.o df-sample_aya: df-sample_aya.o
$(F90LINK) $(LINKOPT) $(DFSAYAOBJS) -o df-sample_aya \ $(F90LINK) $(LINKOPT) $(DFSAYAOBJS) -o df-sample_aya \

@ -307,10 +307,10 @@ program df_sample
call mld_precset(prec,mld_coarse_fillin_, prec_choice%cfill, info) call mld_precset(prec,mld_coarse_fillin_, prec_choice%cfill, info)
call mld_precset(prec,mld_coarse_iluthrs_, prec_choice%cthres, info) call mld_precset(prec,mld_coarse_iluthrs_, prec_choice%cthres, info)
call mld_precset(prec,mld_coarse_sweeps_, prec_choice%cjswp, info) call mld_precset(prec,mld_coarse_sweeps_, prec_choice%cjswp, info)
call prec%set(dbsmth,info,pos='post') !!$ call prec%set(dbsmth,info,pos='post')
call prec%set(dbwgs,info,pos='post') !!$ call prec%set(dbwgs,info,pos='post')
call mld_precset(prec,'solver_sweeps', 4, info, pos='pre') !!$ call mld_precset(prec,'solver_sweeps', 4, info, pos='pre')
call mld_precset(prec,'solver_sweeps', 4, info, pos='post') !!$ call mld_precset(prec,'solver_sweeps', 4, info, pos='post')
else else
nlv = 1 nlv = 1
call mld_precinit(prec,prec_choice%prec,info) call mld_precinit(prec,prec_choice%prec,info)

Loading…
Cancel
Save