Go to the documentation of this file.00001
00002
00003 inline _zcovector t(const zrovector& rovec)
00004 {VERBOSE_REPORT;
00005 zcovector covec(rovec.l);
00006 zcopy_(rovec.l, rovec.array, 1, covec.array, 1);
00007
00008 return _(covec);
00009 }
00010
00011
00012
00013 inline _zrovector conj(const zrovector& vec)
00014 {VERBOSE_REPORT;
00015 zrovector newvec(vec.l);
00016
00017 for(long i=0; i<vec.l; i++){
00018 newvec(i) =std::conj(vec(i));
00019 }
00020
00021 return _(newvec);
00022 }
00023
00024
00025
00026 inline _zcovector conjt(const zrovector& rovec)
00027 {VERBOSE_REPORT;
00028 zcovector covec(rovec.l);
00029
00030 for(long i=0; i<rovec.l; i++){
00031 covec(i) =std::conj(rovec(i));
00032 }
00033
00034 return _(covec);
00035 }
00036
00037
00038
00039
00040
00041
00042
00043 inline double nrm2(const zrovector& vec)
00044 {VERBOSE_REPORT;
00045 return dznrm2_(vec.l, vec.array, 1);
00046 }
00047
00048
00049
00050
00051 inline long idamax(const zrovector& vec)
00052 {VERBOSE_REPORT;
00053 return izamax_(vec.l, vec.array, 1) -1;
00054 }
00055
00056
00057
00058 inline comple damax(const zrovector& vec)
00059 {VERBOSE_REPORT;
00060 return vec.array[izamax_(vec.l, vec.array, 1) -1];
00061 }