1 // SPDX-License-Identifier: Apache-2.0
2 //
3 // Copyright 2008-2016 Conrad Sanderson (http://conradsanderson.id.au)
4 // Copyright 2008-2016 National ICT Australia (NICTA)
5 //
6 // Licensed under the Apache License, Version 2.0 (the "License");
7 // you may not use this file except in compliance with the License.
8 // You may obtain a copy of the License at
9 // http://www.apache.org/licenses/LICENSE-2.0
10 //
11 // Unless required by applicable law or agreed to in writing, software
12 // distributed under the License is distributed on an "AS IS" BASIS,
13 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 // See the License for the specific language governing permissions and
15 // limitations under the License.
16 // ------------------------------------------------------------------------
17
18
19 //! \addtogroup spop_htrans
20 //! @{
21
22
23
24 template<typename T1>
25 inline
26 void
apply(SpMat<typename T1::elem_type> & out,const SpOp<T1,spop_htrans> & in,const typename arma_not_cx<typename T1::elem_type>::result * junk)27 spop_htrans::apply(SpMat<typename T1::elem_type>& out, const SpOp<T1,spop_htrans>& in, const typename arma_not_cx<typename T1::elem_type>::result* junk)
28 {
29 arma_extra_debug_sigprint();
30 arma_ignore(junk);
31
32 spop_strans::apply(out, in);
33 }
34
35
36
37 template<typename T1>
38 inline
39 void
apply(SpMat<typename T1::elem_type> & out,const SpOp<T1,spop_htrans> & in,const typename arma_cx_only<typename T1::elem_type>::result * junk)40 spop_htrans::apply(SpMat<typename T1::elem_type>& out, const SpOp<T1,spop_htrans>& in, const typename arma_cx_only<typename T1::elem_type>::result* junk)
41 {
42 arma_extra_debug_sigprint();
43 arma_ignore(junk);
44
45 typedef typename T1::elem_type eT;
46
47 spop_strans::apply(out, in);
48
49 const uword N = out.n_nonzero;
50
51 for(uword i=0; i<N; ++i)
52 {
53 eT& val = access::rw(out.values[i]);
54
55 val = eop_aux::conj(val);
56 }
57 }
58
59
60
61 //! @}
62