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

Take out debug statement

Browse Source
Poly-novrl
sfilippone 1 year ago
parent bb262275a1
commit bee9d63e9c
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File

1
samples/advanced/pdegen/amg_d_pde3d.F90
Unescape Escape View File

@ -343,7 +343,6 @@ program amg_d_pde3d
call prec%set('smoother_type', p_choice%smther, info) call prec%set('smoother_type', p_choice%smther, info)
call prec%set('smoother_sweeps', p_choice%jsweeps, info) call prec%set('smoother_sweeps', p_choice%jsweeps, info)
call prec%set('poly_degree', p_choice%degree, info) call prec%set('poly_degree', p_choice%degree, info)
write(0,*) 'pvariant :',p_choice%pvariant
call prec%set('poly_variant', p_choice%pvariant, info) call prec%set('poly_variant', p_choice%pvariant, info)
select case (psb_toupper(p_choice%smther)) select case (psb_toupper(p_choice%smther))

Write Preview
Loading…
Cancel
Save