00001
00003 inline drovector t(const _dcovector& covec)
00004 {
00005 #ifdef CPPL_VERBOSE
00006 std::cerr << "# [MARK] t(const _dcovector&)"
00007 << std::endl;
00008 #endif//CPPL_VERBOSE
00009
00010 _drovector rovec;
00011 rovec.L =covec.L;
00012 delete [] rovec.Array;
00013 rovec.Array =covec.Array;
00014
00015 return rovec;
00016 }
00017
00018
00020 inline double nrm2(const _dcovector& vec)
00021 {
00022 #ifdef CPPL_VERBOSE
00023 std::cerr << "# [MARK] nrm2(const _dcovector&)"
00024 << std::endl;
00025 #endif//CPPL_VERBOSE
00026
00027 double val( dnrm2_(vec.L, vec.Array, 1) );
00028 vec.destroy();
00029 return val;
00030 }
00031
00032
00035 inline long idamax(const _dcovector& vec)
00036 {
00037 #ifdef CPPL_VERBOSE
00038 std::cerr << "# [MARK] idamax(const _dcovector&)"
00039 << std::endl;
00040 #endif//CPPL_VERBOSE
00041
00042 long i( idamax_(vec.L, vec.Array, 1) -1 );
00043 vec.destroy();
00044 return i;
00045 }
00046
00047
00049 inline double damax(const _dcovector& vec)
00050 {
00051 #ifdef CPPL_VERBOSE
00052 std::cerr << "# [MARK] damax(const _dcovector&)"
00053 << std::endl;
00054 #endif//CPPL_VERBOSE
00055
00056 double val( vec.Array[idamax_(vec.L, vec.Array, 1)-1] );
00057 vec.destroy();
00058 return val;
00059 }