euclidean_norm_square_real Function

public function euclidean_norm_square_real(u) result(euclidean_norm_square)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: u(:)

Return Value real(kind=dp)


Contents

Source Code

euclidean_norm_square_real

Source Code

    function euclidean_norm_square_real(u) result(euclidean_norm_square)
        real(dp), intent(in) :: u(:)
        real(dp) :: euclidean_norm_square
        euclidean_norm_square = inner_product(u, u)
    end function euclidean_norm_square_real