norm_2_real Function

public function norm_2_real(a) result(result)

function that calculates the Euclidean norm (L2 norm) of a vector $\vec{a}$, where $\vec{a} \in \mathbb{R}^n$ $$||\vec{a}||_2 = \sqrt{\sum_{i=1}^{n} a_i^2} \quad \text{ with } \quad \sum_{i=1}^{n} a_i^2 = \vec{a} \cdot \vec{a}$$ where $n$ is the dimension of the real vector $\vec{a}$.

Arguments

Return Value real(kind=dp)

    function norm_2_real(a) result(result)

        real(dp), dimension(:), intent(in) :: a
        real(dp) :: result

        result = sqrt(dot_product(a, a))

    end function norm_2_real