Go to the documentation of this file.00001
00002
00003 inline _drovector t(const dcovector& covec)
00004 {VERBOSE_REPORT;
00005 drovector rovec(covec.l);
00006 dcopy_(covec.l, covec.array, 1, rovec.array, 1);
00007
00008 return _(rovec);
00009 }
00010
00011
00012
00013 inline double nrm2(const dcovector& vec)
00014 {VERBOSE_REPORT;
00015 return dnrm2_(vec.l, vec.array, 1);
00016 }
00017
00018
00019
00020
00021 inline long idamax(const dcovector& vec)
00022 {VERBOSE_REPORT;
00023 return idamax_(vec.l, vec.array, 1) -1;
00024 }
00025
00026
00027
00028 inline double damax(const dcovector& vec)
00029 {VERBOSE_REPORT;
00030 return vec.array[idamax_(vec.l, vec.array, 1) -1];
00031 }