Take out debug in amg_krylov_opt

kinsol-stop
sfilippone 20 hours ago
parent c6daa45aa8
commit 525f971978

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

Loading…
Cancel
Save