VERB_code_2.3
_drovector-calc.hpp
1 //=============================================================================
3 inline _dcovector t(const _drovector& rovec)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] t(const _drovector&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10  _dcovector covec;
11  covec.L =rovec.L;
12  delete [] covec.Array;
13  covec.Array =rovec.Array;
14 
15  return covec;
16 }
17 
18 //=============================================================================
20 inline double nrm2(const _drovector& vec)
21 {
22 #ifdef CPPL_VERBOSE
23  std::cerr << "# [MARK] nrm2(const _drovector&)"
24  << std::endl;
25 #endif//CPPL_VERBOSE
26 
27  double val( dnrm2_(vec.L, vec.Array, 1) );
28  vec.destroy();
29  return val;
30 }
31 
32 //=============================================================================
35 inline long idamax(const _drovector& vec)
36 {
37 #ifdef CPPL_VERBOSE
38  std::cerr << "# [MARK] idamax(const _drovector&)"
39  << std::endl;
40 #endif//CPPL_VERBOSE
41 
42  long i( idamax_(vec.L, vec.Array, 1) -1 );
43  vec.destroy();
44  return i;
45 }
46 
47 //=============================================================================
49 inline double damax(const _drovector& vec)
50 {
51 #ifdef CPPL_VERBOSE
52  std::cerr << "# [MARK] damax(const _drovector&)"
53  << std::endl;
54 #endif//CPPL_VERBOSE
55 
56  double val( vec.Array[idamax_(vec.L, vec.Array, 1)-1] );
57  vec.destroy();
58  return val;
59 }
friend double damax(const drovector &)
Definition: drovector-calc.hpp:43
friend double nrm2(const drovector &)
Definition: drovector-calc.hpp:18
void destroy() const
Definition: _drovector-misc.hpp:3
(DO NOT USE) Smart-temporary Real Double-precision Row Vector Class
Definition: _drovector.hpp:3
friend _dcovector t(const drovector &)
Definition: drovector-calc.hpp:3
double * Array
1D Array to store vector data
Definition: _dcovector.hpp:8
long L
vector size
Definition: _dcovector.hpp:7
long L
vector size
Definition: _drovector.hpp:7
double * Array
1D Array to store vector data
Definition: _drovector.hpp:8
friend long idamax(const drovector &)
Definition: drovector-calc.hpp:31
(DO NOT USE) Smart-temporary Real Double-precision Column Vector Class
Definition: _dcovector.hpp:3