euclidean_norm_square_complex Function

public function euclidean_norm_square_complex(u) result(euclidean_norm_square)

Arguments

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

Return Value real(kind=dp)

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