Chris@49: // Copyright (C) 2008-2012 NICTA (www.nicta.com.au)
Chris@49: // Copyright (C) 2008-2012 Conrad Sanderson
Chris@49: // 
Chris@49: // This Source Code Form is subject to the terms of the Mozilla Public
Chris@49: // License, v. 2.0. If a copy of the MPL was not distributed with this
Chris@49: // file, You can obtain one at http://mozilla.org/MPL/2.0/.
Chris@49: 
Chris@49: 
Chris@49: //! \addtogroup fn_trans
Chris@49: //! @{
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const Op<T1, op_htrans>
Chris@49: trans
Chris@49:   (
Chris@49:   const T1& X,
Chris@49:   const typename enable_if< is_arma_type<T1>::value == true >::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return Op<T1, op_htrans>(X);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const Op<T1, op_htrans>
Chris@49: htrans
Chris@49:   (
Chris@49:   const T1& X,
Chris@49:   const typename enable_if< is_arma_type<T1>::value == true >::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return Op<T1, op_htrans>(X);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: //! two consecutive transpose operations cancel each other
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const T1&
Chris@49: trans(const Op<T1, op_htrans>& X)
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_extra_debug_print("trans(): removing op_htrans");
Chris@49:   
Chris@49:   return X.m;
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const T1&
Chris@49: htrans(const Op<T1, op_htrans>& X)
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_extra_debug_print("htrans(): removing op_htrans");
Chris@49:   
Chris@49:   return X.m;
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: //
Chris@49: // handling of sparse matrices
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: inline
Chris@49: typename
Chris@49: enable_if2
Chris@49:   <
Chris@49:   is_arma_sparse_type<T1>::value,
Chris@49:   const SpOp<T1,spop_strans>
Chris@49:   >::result
Chris@49: trans
Chris@49:   (
Chris@49:   const T1& x,
Chris@49:   const typename arma_not_cx<typename T1::elem_type>::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return SpOp<T1,spop_strans>(x);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: inline
Chris@49: typename
Chris@49: enable_if2
Chris@49:   <
Chris@49:   is_arma_sparse_type<T1>::value,
Chris@49:   const SpOp<T1,spop_htrans>
Chris@49:   >::result
Chris@49: trans
Chris@49:   (
Chris@49:   const T1& x,
Chris@49:   const typename arma_cx_only<typename T1::elem_type>::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return SpOp<T1,spop_htrans>(x);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: inline
Chris@49: typename
Chris@49: enable_if2
Chris@49:   <
Chris@49:   is_arma_sparse_type<T1>::value,
Chris@49:   const SpOp<T1,spop_strans>
Chris@49:   >::result
Chris@49: htrans
Chris@49:   (
Chris@49:   const T1& x,
Chris@49:   const typename arma_not_cx<typename T1::elem_type>::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return SpOp<T1,spop_strans>(x);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: inline
Chris@49: typename
Chris@49: enable_if2
Chris@49:   <
Chris@49:   is_arma_sparse_type<T1>::value,
Chris@49:   const SpOp<T1,spop_htrans>
Chris@49:   >::result
Chris@49: htrans
Chris@49:   (
Chris@49:   const T1& x,
Chris@49:   const typename arma_cx_only<typename T1::elem_type>::result* junk = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk);
Chris@49:   
Chris@49:   return SpOp<T1,spop_htrans>(x);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: //! @}