norm_2_complex Function

public function norm_2_complex(a) result(result)

function that calculates the Euclidean norm (L2 norm or modulus) of a vector $\vec{a}$, where $\vec{a} \in \mathbb{C}^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 \overline{\vec{a}}$$ where $n$ is the dimension of the complex vector $\vec{a}$.

Arguments

Return Value real(kind=dp)

    function norm_2_complex(a) result(result)

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

        result = sqrt(real(dot_product(a, conjg(a))))

    end function norm_2_complex