set_initial_norms Subroutine

private subroutine set_initial_norms(self, res_vec, upd_vec)

Type Bound

type_iteration

Arguments

Type IntentOptional Attributes Name
class(type_iteration), intent(inout) :: self
real(kind=real64), intent(in), optional :: res_vec(:)
real(kind=real64), intent(in), optional :: upd_vec(:)

Calls

proc~~set_initial_norms~~CallsGraph proc~set_initial_norms type_iteration%set_initial_norms proc~norm_2 norm_2 proc~set_initial_norms->proc~norm_2 proc~norm_inf norm_inf proc~set_initial_norms->proc~norm_inf

Called by

proc~~set_initial_norms~~CalledByGraph proc~set_initial_norms type_iteration%set_initial_norms proc~compute_type_hydraulic_crs compute_type_hydraulic_crs proc~compute_type_hydraulic_crs->proc~set_initial_norms proc~compute_type_thermal_crs compute_type_thermal_crs proc~compute_type_thermal_crs->proc~set_initial_norms interface~compute_type_hydraulic_crs type_hydraulic_crs%compute_type_hydraulic_crs interface~compute_type_hydraulic_crs->proc~compute_type_hydraulic_crs interface~compute_type_thermal_crs type_thermal_crs%compute_type_thermal_crs interface~compute_type_thermal_crs->proc~compute_type_thermal_crs

Source Code

    subroutine set_initial_norms(self, res_vec, upd_vec)
        implicit none
        class(type_iteration), intent(inout) :: self
        real(real64), intent(in), optional :: res_vec(:), upd_vec(:)

        ! 初期ノルム値設定
        if (present(res_vec)) then
            self%init_res_norm_l2 = norm_2(res_vec)
            self%init_res_norm_inf = norm_inf(res_vec)
        end if
        if (present(upd_vec)) then
            self%init_upd_norm_l2 = norm_2(upd_vec)
            self%init_upd_norm_inf = norm_inf(upd_vec)
        end if
    end subroutine set_initial_norms