CPPLapack
 All Classes Files Functions Variables Friends
zrovector-calc.hpp
Go to the documentation of this file.
00001 //=============================================================================
00002 /*! return a transposed column vector */
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 /*! return its conjugated vector */
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 /*! return a conjugate transposed column vector */
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 /*! return its Euclidean norm */
00043 inline double nrm2(const zrovector& vec)
00044 {VERBOSE_REPORT;
00045   return dznrm2_(vec.l, vec.array, 1);
00046 }
00047 
00048 //=============================================================================
00049 /*! return the index of element having the largest absolute value
00050   in 0-based numbering system */
00051 inline long idamax(const zrovector& vec)
00052 {VERBOSE_REPORT;
00053   return izamax_(vec.l, vec.array, 1) -1;
00054 }
00055 
00056 //=============================================================================
00057 /*! return its largest absolute value */
00058 inline comple damax(const zrovector& vec)
00059 {VERBOSE_REPORT;
00060   return vec.array[izamax_(vec.l, vec.array, 1) -1];
00061 }
 All Classes Files Functions Variables Friends