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

Take out debug in amg_krylov_opt

Browse Source
This commit is contained in:
sfilippone
2026-06-12 15:12:16 +02:00
parent c6daa45aa8
commit 525f971978
1 changed files with 1 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/amgprec/amg_dprec_cbind_mod.F90
+1 -12
View File
@@ -349,13 +349,7 @@ contains
fitrace = itrace
first = irst
fistop = istop
!!$ flush(0)
!!$
!!$ if (associated(s1p)) write(0,*) 'amg_c_dkrylov_opt S1 ',s1p%get_nrows(), &
!!$ & s1p%nrm2(s1p%get_nrows())
!!$ if (associated(s2p)) write(0,*) 'amg_c_dkrylov_opt S2 ',s2p%get_nrows(), &
!!$ & s2p%nrm2(s2p%get_nrows())
!!$ flush(0)
if (associated(s1p).and.associated(s2p)) then
call psb_krylov(fmethd, ap, precp, bp, xp, feps, &
& descp, iret,&
@@ -378,11 +372,6 @@ contains
& irst=first, err=ferr)
end if
!!$ call psb_krylov(fmethd, ap, precp, bp, xp, feps, &
!!$ & descp, iret,&
!!$ & itmax=fitmax,iter=fiter,itrace=fitrace,istop=fistop,&
!!$ & irst=first, err=ferr)
iter = fiter
err = ferr
res = min(iret,0)