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

Fix bug in KRM prec_descr

Browse Source
fixmatch
Salvatore Filippone 2 years ago
parent e87c785cc7
commit 80185463ea
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
amgprec/amg_c_krm_solver.f90
Unescape Escape View File

@ -473,7 +473,7 @@ contains
end if end if
write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' method: ',sv%method
write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec
call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_)
write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax
write(iout_,*) trim(prefix_), ' eps: ',sv%eps write(iout_,*) trim(prefix_), ' eps: ',sv%eps

2
amgprec/amg_d_krm_solver.f90
Unescape Escape View File

@ -473,7 +473,7 @@ contains
end if end if
write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' method: ',sv%method
write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec
call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_)
write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax
write(iout_,*) trim(prefix_), ' eps: ',sv%eps write(iout_,*) trim(prefix_), ' eps: ',sv%eps

2
amgprec/amg_s_krm_solver.f90
Unescape Escape View File

@ -473,7 +473,7 @@ contains
end if end if
write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' method: ',sv%method
write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec
call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_)
write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax
write(iout_,*) trim(prefix_), ' eps: ',sv%eps write(iout_,*) trim(prefix_), ' eps: ',sv%eps

2
amgprec/amg_z_krm_solver.f90
Unescape Escape View File

@ -473,7 +473,7 @@ contains
end if end if
write(iout_,*) trim(prefix_), ' method: ',sv%method write(iout_,*) trim(prefix_), ' method: ',sv%method
write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec write(iout_,*) trim(prefix_), ' kprec: ',sv%kprec
call sv%prec%descr(iout_,info,prefix='KRM : '//prefix_) call sv%prec%descr(info,iout_,prefix='KRM : '//prefix_)
write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax write(iout_,*) trim(prefix_), ' itmax: ',sv%itmax
write(iout_,*) trim(prefix_), ' eps: ',sv%eps write(iout_,*) trim(prefix_), ' eps: ',sv%eps

Write Preview
Loading…
Cancel
Save