diff --git a/mlprec/mld_base_prec_type.F90 b/mlprec/mld_base_prec_type.F90 index 3459d989..736ad18c 100644 --- a/mlprec/mld_base_prec_type.F90 +++ b/mlprec/mld_base_prec_type.F90 @@ -961,6 +961,7 @@ contains call psb_bcast(ictxt,dat%ml_type,root) call psb_bcast(ictxt,dat%smoother_pos,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_omega_alg,root) call psb_bcast(ictxt,dat%aggr_eig,root) @@ -1007,6 +1008,7 @@ contains pmout%ml_type = pm%ml_type pmout%smoother_pos = pm%smoother_pos pmout%aggr_alg = pm%aggr_alg + pmout%aggr_ord = pm%aggr_ord pmout%aggr_kind = pm%aggr_kind pmout%aggr_omega_alg = pm%aggr_omega_alg pmout%aggr_eig = pm%aggr_eig diff --git a/tests/fileread/Makefile b/tests/fileread/Makefile index 66eb1778..fab2fe96 100644 --- a/tests/fileread/Makefile +++ b/tests/fileread/Makefile @@ -16,7 +16,8 @@ ZFSOBJS=zf_sample.o data_input.o 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 $(F90LINK) $(LINKOPT) $(DFSAYAOBJS) -o df-sample_aya \ diff --git a/tests/fileread/df_sample.f90 b/tests/fileread/df_sample.f90 index de0fd840..026d0d8f 100644 --- a/tests/fileread/df_sample.f90 +++ b/tests/fileread/df_sample.f90 @@ -307,10 +307,10 @@ program df_sample 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_sweeps_, prec_choice%cjswp, info) - call prec%set(dbsmth,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='post') +!!$ call prec%set(dbsmth,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='post') else nlv = 1 call mld_precinit(prec,prec_choice%prec,info)