<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<title>CPPLapack: zhematrix-misc.hpp Source File</title>

<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css" />

<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>

</head>
<body>
<div id="top"><!-- do not remove this div! -->


<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  
  
  <td style="padding-left: 0.5em;">
   <div id="projectname">CPPLapack
   
   </div>
   
  </td>
  
  
  
 </tr>
 </tbody>
</table>
</div>

<!-- Generated by Doxygen 1.7.6.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="pages.html"><span>Related&#160;Pages</span></a></li>
      <li><a href="annotated.html"><span>Classes</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li><a href="dirs.html"><span>Directories</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Friends</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

  <div id="nav-path" class="navpath">
    <ul>
      <li class="navelem"><a class="el" href="dir_a37d0dd275f7ec49ee26f1d33d1059f5.html">include</a>      </li>
      <li class="navelem"><a class="el" href="dir_96fc262d801f58b2095d1ae8304f3713.html">zhematrix-</a>      </li>
    </ul>
  </div>
</div>
<div class="header">
  <div class="headertitle">
<div class="title">zhematrix-misc.hpp</div>  </div>
</div><!--header-->
<div class="contents">
<a href="zhematrix-misc_8hpp.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00002"></a>00002 <span class="comment">/*! complete the upper-right components */</span>
<a name="l00003"></a><a class="code" href="classzhematrix.html#a677b0e1df7c504a915029ae1e652a6a8">00003</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#a677b0e1df7c504a915029ae1e652a6a8">zhematrix::complete</a>()<span class="keyword"> const</span>
<a name="l00004"></a>00004 <span class="keyword"></span>{VERBOSE_REPORT;
<a name="l00005"></a>00005   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){
<a name="l00006"></a>00006     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>; j++){
<a name="l00007"></a>00007       <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>][j] =<a class="code" href="classzhematrix.html#ace551e966a20707ae0f611d8466f280f">std::conj</a>(<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[j][i]);
<a name="l00008"></a>00008     }    
<a name="l00009"></a>00009 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00010"></a>00010 <span class="preprocessor"></span>    <span class="keywordflow">if</span>(std::fabs(<a class="code" href="dcovector__small-specialized_8hpp.html#a2eb38711e1c30cc070f53589d1905fea">std::imag</a>(<span class="keyword">operator</span>()(i,i))) &gt; DBL_MIN){
<a name="l00011"></a>00011       WARNING_REPORT;
<a name="l00012"></a>00012       std::cerr &lt;&lt; <span class="stringliteral">&quot;The &quot;</span> &lt;&lt; i &lt;&lt; <span class="stringliteral">&quot;th diagonal component of the zhematrix is not a real number.&quot;</span> &lt;&lt; std::endl;
<a name="l00013"></a>00013     }
<a name="l00014"></a>00014 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00015"></a>00015 <span class="preprocessor"></span>  }
<a name="l00016"></a>00016 }
<a name="l00017"></a>00017 
<a name="l00018"></a>00018 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00019"></a>00019 <span class="comment">/*! clear all the matrix data and set the sizes 0 */</span>
<a name="l00020"></a><a class="code" href="classzhematrix.html#af2505f3a355336af0f77bab366cabfcc">00020</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#af2505f3a355336af0f77bab366cabfcc">zhematrix::clear</a>()
<a name="l00021"></a>00021 {VERBOSE_REPORT;
<a name="l00022"></a>00022   <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> =0;
<a name="l00023"></a>00023   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>;
<a name="l00024"></a>00024   <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a> =NULL;
<a name="l00025"></a>00025   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00026"></a>00026   <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a> =NULL;
<a name="l00027"></a>00027 }
<a name="l00028"></a>00028 
<a name="l00029"></a>00029 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00030"></a>00030 <span class="comment">/*! change the matrix into a zero matrix */</span>
<a name="l00031"></a><a class="code" href="classzhematrix.html#aa099198928ab1fc0793906e9ef709017">00031</a> <span class="keyword">inline</span> <a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; <a class="code" href="classzhematrix.html#aa099198928ab1fc0793906e9ef709017">zhematrix::zero</a>()
<a name="l00032"></a>00032 {VERBOSE_REPORT;
<a name="l00033"></a>00033   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){
<a name="l00034"></a>00034     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;=<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>; j++){
<a name="l00035"></a>00035       <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[j][<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>]=comple(0.0,0.0);
<a name="l00036"></a>00036     }
<a name="l00037"></a>00037   }
<a name="l00038"></a>00038   <span class="keywordflow">return</span> *<span class="keyword">this</span>;
<a name="l00039"></a>00039 }
<a name="l00040"></a>00040 
<a name="l00041"></a>00041 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00042"></a>00042 <span class="comment">/*! change the matrix into an identity matrix */</span>
<a name="l00043"></a><a class="code" href="classzhematrix.html#a35005ca3ab1ea31fdd6bc948af35e77d">00043</a> <span class="keyword">inline</span> <a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; <a class="code" href="classzhematrix.html#a35005ca3ab1ea31fdd6bc948af35e77d">zhematrix::identity</a>()
<a name="l00044"></a>00044 {VERBOSE_REPORT;
<a name="l00045"></a>00045   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){
<a name="l00046"></a>00046     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>; j++){
<a name="l00047"></a>00047       <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[j][<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>] =comple(0.0,0.0);
<a name="l00048"></a>00048     }
<a name="l00049"></a>00049     <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>][<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>] =comple(1.0,0.0);
<a name="l00050"></a>00050   }
<a name="l00051"></a>00051   
<a name="l00052"></a>00052   <span class="keywordflow">return</span> *<span class="keyword">this</span>;
<a name="l00053"></a>00053 }
<a name="l00054"></a>00054 
<a name="l00055"></a>00055 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00056"></a>00056 <span class="comment">/*! change sign(+/-) of the matrix */</span>
<a name="l00057"></a><a class="code" href="classzhematrix.html#a5f289ccaf40f79698a583161dc8e5377">00057</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#a5f289ccaf40f79698a583161dc8e5377">zhematrix::chsign</a>()
<a name="l00058"></a>00058 {VERBOSE_REPORT;
<a name="l00059"></a>00059   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){
<a name="l00060"></a>00060     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;=<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>; j++){
<a name="l00061"></a>00061       <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[j][<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>] =-<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[j][<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>];
<a name="l00062"></a>00062     }
<a name="l00063"></a>00063   }
<a name="l00064"></a>00064 }
<a name="l00065"></a>00065 
<a name="l00066"></a>00066 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00067"></a>00067 <span class="comment">/*! make a deep copy of the matrix */</span>
<a name="l00068"></a><a class="code" href="classzhematrix.html#a57c154acaba93614d881e7ac5cd36f32">00068</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#a57c154acaba93614d881e7ac5cd36f32">zhematrix::copy</a>(<span class="keyword">const</span> <a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; mat)
<a name="l00069"></a>00069 {VERBOSE_REPORT;
<a name="l00070"></a>00070   <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> =mat.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>;
<a name="l00071"></a>00071   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>;
<a name="l00072"></a>00072   <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a> =<span class="keyword">new</span> comple[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>*<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>];
<a name="l00073"></a>00073   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00074"></a>00074   <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a> =<span class="keyword">new</span> comple*[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>];
<a name="l00075"></a>00075   <span class="keywordflow">for</span>(<span class="keywordtype">int</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){ <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>] =&amp;<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>*<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>]; }
<a name="l00076"></a>00076   
<a name="l00077"></a>00077   zcopy_(mat.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>*mat.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>, mat.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, 1, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, 1);
<a name="l00078"></a>00078 }
<a name="l00079"></a>00079 
<a name="l00080"></a>00080 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00081"></a>00081 <span class="comment">/*! make a shallow copy of the matrix\n</span>
<a name="l00082"></a>00082 <span class="comment">  This function is not designed to be used in project codes. */</span>
<a name="l00083"></a><a class="code" href="classzhematrix.html#a3d551950f1ed5c71db3ca841545c59f3">00083</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#a3d551950f1ed5c71db3ca841545c59f3">zhematrix::shallow_copy</a>(<span class="keyword">const</span> <a class="code" href="class__zhematrix.html" title="(DO NOT USE) Smart-temporary Complex Double-precision Hermitian Matrix Class">_zhematrix</a>&amp; mat)
<a name="l00084"></a>00084 {VERBOSE_REPORT;
<a name="l00085"></a>00085   <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> =mat.<a class="code" href="class__zhematrix.html#a3cd8e436cf59991845c6b8e66d56c023" title="matrix column size">n</a>;
<a name="l00086"></a>00086   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>;
<a name="l00087"></a>00087   <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a> =mat.<a class="code" href="class__zhematrix.html#a7d20e0d43e98b9c706126d92b8683e82" title="1D array to store matrix data">array</a>;
<a name="l00088"></a>00088   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00089"></a>00089   <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a> =mat.<a class="code" href="class__zhematrix.html#a3ad63a338d36c3752de106ca134a1a38" title="array of pointers of column head addresses">darray</a>;
<a name="l00090"></a>00090   
<a name="l00091"></a>00091   mat.<a class="code" href="class__zhematrix.html#a067b4ee2f04c7c63ea5ac392193f46f1">nullify</a>();
<a name="l00092"></a>00092 }
<a name="l00093"></a>00093 
<a name="l00094"></a>00094 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00095"></a>00095 <span class="comment">/*! resize the matrix */</span>
<a name="l00096"></a><a class="code" href="classzhematrix.html#acb4ee5c4a3a0bc9246671543ee3f158c">00096</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="classzhematrix.html#acb4ee5c4a3a0bc9246671543ee3f158c">zhematrix::resize</a>(<span class="keyword">const</span> <span class="keywordtype">long</span>&amp; _n)
<a name="l00097"></a>00097 {VERBOSE_REPORT;
<a name="l00098"></a>00098 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00099"></a>00099 <span class="preprocessor"></span>  <span class="keywordflow">if</span>( _n&lt;0 ){
<a name="l00100"></a>00100     ERROR_REPORT;
<a name="l00101"></a>00101     std::cerr &lt;&lt; <span class="stringliteral">&quot;Matrix sizes must be positive integers.&quot;</span> &lt;&lt; std::endl
<a name="l00102"></a>00102               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; _n &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00103"></a>00103     exit(1);
<a name="l00104"></a>00104   }
<a name="l00105"></a>00105 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00106"></a>00106 <span class="preprocessor"></span>  
<a name="l00107"></a>00107   <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> =_n;
<a name="l00108"></a>00108   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>;
<a name="l00109"></a>00109   <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a> =<span class="keyword">new</span> comple[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>*<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>];
<a name="l00110"></a>00110   <span class="keyword">delete</span> [] <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00111"></a>00111   <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a> =<span class="keyword">new</span> comple*[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>];
<a name="l00112"></a>00112   <span class="keywordflow">for</span>(<span class="keywordtype">int</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){ <a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>] =&amp;<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>*<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>]; }
<a name="l00113"></a>00113 }
<a name="l00114"></a>00114 <span class="comment"></span>
<a name="l00115"></a>00115 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00116"></a>00116 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00117"></a>00117 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00118"></a>00118 <span class="comment"></span>
<a name="l00119"></a>00119 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00120"></a>00120 <span class="comment">/*! get row of the matrix */</span>
<a name="l00121"></a><a class="code" href="classzhematrix.html#adec301bb04ce6eb938139f65cd1f0393">00121</a> <span class="keyword">inline</span> <a class="code" href="class__zrovector.html" title="(DO NOT USE) Smart-temporary Complex Double-precision Row Vector Class">_zrovector</a> <a class="code" href="classzhematrix.html#adec301bb04ce6eb938139f65cd1f0393">zhematrix::row</a>(<span class="keyword">const</span> <span class="keywordtype">long</span>&amp; _m)<span class="keyword"> const</span>
<a name="l00122"></a>00122 <span class="keyword"></span>{VERBOSE_REPORT;
<a name="l00123"></a>00123 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00124"></a>00124 <span class="preprocessor"></span>  <span class="keywordflow">if</span>( _m&lt;0 || _m&gt;<a class="code" href="classzhematrix.html#aa1a249b90a12e0572c7070cf1948f93d" title="matrix row size">m</a> ){
<a name="l00125"></a>00125     ERROR_REPORT;
<a name="l00126"></a>00126     std::cerr &lt;&lt; <span class="stringliteral">&quot;Input row number must be between 0 and &quot;</span> &lt;&lt; m &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl
<a name="l00127"></a>00127               &lt;&lt; <span class="stringliteral">&quot;Your input was &quot;</span> &lt;&lt; _m &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00128"></a>00128     exit(1);
<a name="l00129"></a>00129   }
<a name="l00130"></a>00130 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00131"></a>00131 <span class="preprocessor"></span>  
<a name="l00132"></a>00132   <a class="code" href="classzrovector.html" title="Complex Double-precision Row Vector Class.">zrovector</a> v(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);
<a name="l00133"></a>00133   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; j++){ v(j)=(*this)(_m,j); }
<a name="l00134"></a>00134   <span class="keywordflow">return</span> <a class="code" href="classzhematrix.html#a528c8dd57c865bc962bec4e1bca233c1">_</a>(v);
<a name="l00135"></a>00135 }
<a name="l00136"></a>00136 
<a name="l00137"></a>00137 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00138"></a>00138 <span class="comment">/*! get column of the matrix */</span>
<a name="l00139"></a><a class="code" href="classzhematrix.html#a4c572c7adca3c1d4e0e6116576be44cf">00139</a> <span class="keyword">inline</span> <a class="code" href="class__zcovector.html" title="(DO NOT USE) Smart-temporary Complex Double-precision Column Vector Class">_zcovector</a> <a class="code" href="classzhematrix.html#a4c572c7adca3c1d4e0e6116576be44cf">zhematrix::col</a>(<span class="keyword">const</span> <span class="keywordtype">long</span>&amp; _n)<span class="keyword"> const</span>
<a name="l00140"></a>00140 <span class="keyword"></span>{VERBOSE_REPORT;
<a name="l00141"></a>00141 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00142"></a>00142 <span class="preprocessor"></span>  <span class="keywordflow">if</span>( _n&lt;0 || _n&gt;<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> ){
<a name="l00143"></a>00143     ERROR_REPORT;
<a name="l00144"></a>00144     std::cerr &lt;&lt; <span class="stringliteral">&quot;Input row number must be between 0 and &quot;</span> &lt;&lt; n &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl
<a name="l00145"></a>00145               &lt;&lt; <span class="stringliteral">&quot;Your input was &quot;</span> &lt;&lt; _n &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00146"></a>00146     exit(1);
<a name="l00147"></a>00147   }
<a name="l00148"></a>00148 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00149"></a>00149 <span class="preprocessor"></span>  
<a name="l00150"></a>00150   <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> v(<a class="code" href="classzhematrix.html#aa1a249b90a12e0572c7070cf1948f93d" title="matrix row size">m</a>);
<a name="l00151"></a>00151   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>=0; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>&lt;<a class="code" href="classzhematrix.html#aa1a249b90a12e0572c7070cf1948f93d" title="matrix row size">m</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){ v(<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>)=(*this)(<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>,_n); }
<a name="l00152"></a>00152   <span class="keywordflow">return</span> <a class="code" href="classzhematrix.html#a528c8dd57c865bc962bec4e1bca233c1">_</a>(v);
<a name="l00153"></a>00153 }
<a name="l00154"></a>00154 <span class="comment"></span>
<a name="l00155"></a>00155 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00156"></a>00156 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00157"></a>00157 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00158"></a>00158 <span class="comment"></span>
<a name="l00159"></a>00159 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00160"></a>00160 <span class="comment">/*! swap two matrices */</span>
<a name="l00161"></a><a class="code" href="zhematrix-misc_8hpp.html#a2e78d27b3b9c8353a8d7237048ed585b">00161</a> <span class="keyword">inline</span> <span class="keywordtype">void</span> <a class="code" href="dcovector-misc_8hpp.html#a4f6cde9aa05d9af1ec9bf725dd664869">swap</a>(<a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; A, <a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; B)
<a name="l00162"></a>00162 {VERBOSE_REPORT;
<a name="l00163"></a>00163   <span class="keywordtype">long</span> A_n(A.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);
<a name="l00164"></a>00164   comple* A_array(A.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>);
<a name="l00165"></a>00165   <span class="comment">//comple** A_darray(A.darray);</span>
<a name="l00166"></a>00166   comple** A_darray=A.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>; <span class="comment">//corruption to support VC++</span>
<a name="l00167"></a>00167   A.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>=B.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; A.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>=B.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>; A.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>=B.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00168"></a>00168   B.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>=A_n; B.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>=A_array; B.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>=A_darray;
<a name="l00169"></a>00169 }
<a name="l00170"></a>00170 
<a name="l00171"></a>00171 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00172"></a>00172 <span class="comment">/*! convert user object to smart-temporary object */</span>
<a name="l00173"></a><a class="code" href="zhematrix-misc_8hpp.html#a19bf6b9c4426f3cb23c2160f5c1a6e52">00173</a> <span class="keyword">inline</span> <a class="code" href="class__zhematrix.html" title="(DO NOT USE) Smart-temporary Complex Double-precision Hermitian Matrix Class">_zhematrix</a> <a class="code" href="dcovector-misc_8hpp.html#a297beda6502b0d92c99576d2fb9548cb">_</a>(<a class="code" href="classzhematrix.html" title="Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage].">zhematrix</a>&amp; mat)
<a name="l00174"></a>00174 {VERBOSE_REPORT;
<a name="l00175"></a>00175   <a class="code" href="class__zhematrix.html" title="(DO NOT USE) Smart-temporary Complex Double-precision Hermitian Matrix Class">_zhematrix</a> newmat;
<a name="l00176"></a>00176   <span class="comment"></span>
<a name="l00177"></a>00177 <span class="comment">  //////// shallow copy ////////</span>
<a name="l00178"></a>00178 <span class="comment"></span>  newmat.<a class="code" href="class__zhematrix.html#a3cd8e436cf59991845c6b8e66d56c023" title="matrix column size">n</a> =mat.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>;
<a name="l00179"></a>00179   newmat.<a class="code" href="class__zhematrix.html#a7d20e0d43e98b9c706126d92b8683e82" title="1D array to store matrix data">array</a> =mat.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>;
<a name="l00180"></a>00180   newmat.<a class="code" href="class__zhematrix.html#a3ad63a338d36c3752de106ca134a1a38" title="array of pointers of column head addresses">darray</a> =mat.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a>;
<a name="l00181"></a>00181   <span class="comment"></span>
<a name="l00182"></a>00182 <span class="comment">  //////// nullify ////////</span>
<a name="l00183"></a>00183 <span class="comment"></span>  mat.<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> =0;
<a name="l00184"></a>00184   mat.<a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a> =NULL;
<a name="l00185"></a>00185   mat.<a class="code" href="classzhematrix.html#a1aae8b9ab0fe803d00df06dbd6d3315f" title="array of pointers of column head addresses">darray</a> =NULL;
<a name="l00186"></a>00186   
<a name="l00187"></a>00187   <span class="keywordflow">return</span> newmat;
<a name="l00188"></a>00188 }
</pre></div></div><!-- contents -->
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Friends</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr class="footer"/><address class="footer"><small>
Generated by &#160;<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/>
</a> 1.7.6.1
</small></address>

</body>
</html>
