55 lines
1.2 KiB
C++
55 lines
1.2 KiB
C++
// Copyright (C) 2015 National ICT Australia (NICTA)
|
|
//
|
|
// This Source Code Form is subject to the terms of the Mozilla Public
|
|
// License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
// -------------------------------------------------------------------
|
|
//
|
|
// Written by Conrad Sanderson - http://conradsanderson.id.au
|
|
// Written by Keith O'Hara
|
|
|
|
|
|
//! \addtogroup fn_qz
|
|
//! @{
|
|
|
|
|
|
|
|
//! QZ decomposition for pair of N-by-N general matrices A and B
|
|
template<typename T1, typename T2>
|
|
inline
|
|
typename
|
|
enable_if2
|
|
<
|
|
is_supported_blas_type<typename T1::elem_type>::value,
|
|
bool
|
|
>::result
|
|
qz
|
|
(
|
|
Mat<typename T1::elem_type>& AA,
|
|
Mat<typename T1::elem_type>& BB,
|
|
Mat<typename T1::elem_type>& Q,
|
|
Mat<typename T1::elem_type>& Z,
|
|
const Base<typename T1::elem_type,T1>& A_expr,
|
|
const Base<typename T1::elem_type,T2>& B_expr
|
|
)
|
|
{
|
|
arma_extra_debug_sigprint();
|
|
|
|
const bool status = auxlib::qz(AA, BB, Q, Z, A_expr.get_ref(), B_expr.get_ref());
|
|
|
|
if(status == false)
|
|
{
|
|
AA.reset();
|
|
BB.reset();
|
|
Q.reset();
|
|
Z.reset();
|
|
arma_debug_warn("qz(): decomposition failed");
|
|
}
|
|
|
|
return status;
|
|
}
|
|
|
|
|
|
|
|
//! @}
|