fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
mlprec/mld_base_prec_type.F90

Fixed parm clone.
stopcriterion
Salvatore Filippone 9 years ago
parent c592733a8e
commit e335222c30
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/mld_base_prec_type.F90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save