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

mld2p4-smooth-2side:

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

Fixed parm clone.
This commit is contained in:
Salvatore Filippone
2016-05-16 16:11:07 +00:00
parent a1d88c2bbf
commit c83b19dea1
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_base_prec_type.F90
+2
View File
@@ -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
tests/fileread/Makefile
+2 -1
View File
@@ -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 \
tests/fileread/df_sample.f90
+4 -4
View File
@@ -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)