Chris@49: // Copyright (C) 2011-2012 NICTA (www.nicta.com.au)
Chris@49: // Copyright (C) 2011-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_strans
Chris@49: //! @{
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const Op<T1, op_strans>
Chris@49: strans
Chris@49:   (
Chris@49:   const T1& X,
Chris@49:   const typename enable_if< is_arma_type<T1>::value == true >::result* junk1 = 0,
Chris@49:   const typename arma_cx_only<typename T1::elem_type>::result*         junk2 = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk1);
Chris@49:   arma_ignore(junk2);
Chris@49:   
Chris@49:   return Op<T1, op_strans>(X);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: // NOTE: for non-complex objects, deliberately returning op_htrans instead of op_strans,
Chris@49: // NOTE: due to currently more optimisations available when using op_htrans, especially by glue_times
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: const Op<T1, op_htrans>
Chris@49: strans
Chris@49:   (
Chris@49:   const T1& X,
Chris@49:   const typename enable_if< is_arma_type<T1>::value == true >::result* junk1 = 0,
Chris@49:   const typename arma_not_cx<typename T1::elem_type>::result*          junk2 = 0
Chris@49:   )
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_ignore(junk1);
Chris@49:   arma_ignore(junk2);
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: strans(const Op<T1, op_strans>& X)
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   arma_extra_debug_print("strans(): removing op_strans");
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: strans(const T1& x)
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   
Chris@49:   return SpOp<T1,spop_strans>(x);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: //! @}