00001
00003 inline _dcovector t(const drovector& rovec)
00004 {
00005 #ifdef CPPL_VERBOSE
00006 std::cerr << "# [MARK] t(const drovector&)"
00007 << std::endl;
00008 #endif//CPPL_VERBOSE
00009
00010 dcovector covec(rovec.L);
00011 dcopy_(rovec.L, rovec.Array, 1, covec.array, 1);
00012
00013 return _(covec);
00014 }
00015
00016
00018 inline double nrm2(const drovector& vec)
00019 {
00020 #ifdef CPPL_VERBOSE
00021 std::cerr << "# [MARK] nrm2(const drovector&)"
00022 << std::endl;
00023 #endif//CPPL_VERBOSE
00024
00025 return dnrm2_(vec.L, vec.Array, 1);
00026 }
00027
00028
00031 inline long idamax(const drovector& vec)
00032 {
00033 #ifdef CPPL_VERBOSE
00034 std::cerr << "# [MARK] idamax(const drovector&)"
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 drovector& vec)
00044 {
00045 #ifdef CPPL_VERBOSE
00046 std::cerr << "# [MARK] damax(const drovector&)"
00047 << std::endl;
00048 #endif//CPPL_VERBOSE
00049
00050 return vec.Array[idamax_(vec.L, vec.Array, 1) -1];
00051 }