reset_timestep Subroutine

private subroutine reset_timestep(self)

Type Bound

type_iteration

Arguments

Type IntentOptional Attributes Name
class(type_iteration), intent(inout) :: self

Source Code

    subroutine reset_timestep(self)
        implicit none
        class(type_iteration), intent(inout) :: self

        self%step = 0
        self%iter = 0
        self%is_converged = .false.
        self%init_res_norm_l2 = 0.0d0
        self%init_res_norm_inf = 0.0d0
        self%init_upd_norm_l2 = 0.0d0
        self%init_upd_norm_inf = 0.0d0
    end subroutine reset_timestep