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(covec.L);
00011 dcopy_(covec.L, covec.Array, 1, rovec.array, 1);
00012
00013 return _(rovec);
00014 }
00015
00016
00018 inline double nrm2(const dcovector& vec)
00019 {
00020 #ifdef CPPL_VERBOSE
00021 std::cerr << "# [MARK] nrm2(const dcovector&)"
00022 << std::endl;
00023 #endif//CPPL_VERBOSE
00024
00025 return dnrm2_(vec.L, vec.Array, 1);
00026 }
00027
00028
00031 inline long idamax(const dcovector& vec)
00032 {
00033 #ifdef CPPL_VERBOSE
00034 std::cerr << "# [MARK] idamax(const dcovector&)"
00035 << std::endl;
00036 #endif//CPPL_VERBOSE
00037
00038 return idamax_(vec.L, vec.Array, 1) -1;
00039 }
00040
00041
00043 inline double damax(const dcovector& vec)
00044 {
00045 #ifdef CPPL_VERBOSE
00046 std::cerr << "# [MARK] damax(const dcovector&)"
00047 << std::endl;
00048 #endif//CPPL_VERBOSE
00049
00050 return vec.Array[idamax_(vec.L, vec.Array, 1) -1];
00051 }