euclidean_norm_square_complex Function

public function euclidean_norm_square_complex(u) result(euclidean_norm_square)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

euclidean_norm_square_complex

Source Code

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