6 use,
intrinsic :: ieee_arithmetic, only: ieee_is_nan
15 integer,
intent(in) :: step
16 real(kind=
rp),
intent(in) :: t, dt
17 character(len=LOG_SIZE) :: log_buf
23 write(log_buf,
'(A,A,A)')
'Iterations: ',&
24 'Start residual: ',
'Final residual:'
26 write(log_buf,
'(I11,3x, E15.7,5x, E15.7)') ksp_results(1)%iter, &
27 ksp_results(1)%res_start, ksp_results(1)%res_final
32 if (ieee_is_nan(ksp_results(i)%res_final))
then
33 call neko_log%error(
"Scalar solver diverged")
Implements the base abstract type for Krylov solvers plus helper types.
type(log_t), public neko_log
Global log stream.
integer, parameter, public rp
Global precision used in computations.
Auxiliary routines for fluid solvers.
subroutine scalar_step_info(step, t, dt, ksp_results)
Prints for prs, velx, vely, velz the following: Number of iterations, start residual,...
Type for storing initial and final residuals in a Krylov solver.