norm_2 Function

public function norm_2(x) result(norm)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x(:)

Return Value real(kind=real64)


Called by

proc~~norm_2~~CalledByGraph proc~norm_2 norm_2 proc~check_convergence type_iteration%check_convergence proc~check_convergence->proc~norm_2 proc~set_initial_norms type_iteration%set_initial_norms proc~set_initial_norms->proc~norm_2 proc~compute_type_hydraulic_crs compute_type_hydraulic_crs proc~compute_type_hydraulic_crs->proc~check_convergence proc~compute_type_hydraulic_crs->proc~set_initial_norms proc~compute_type_thermal_crs compute_type_thermal_crs proc~compute_type_thermal_crs->proc~check_convergence 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

    function norm_2(x) result(norm)
        real(real64), intent(in) :: x(:)
        real(real64) :: norm
#ifdef _MKL
        norm = dnrm2(int(size(x), int32), x, 1)
#else
        norm = norm2(x)
#endif
    end function norm_2