<!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: zgematrix-lapack.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_ef8e43612c36dbf66f42390d7c834233.html">zgematrix-</a>      </li>
    </ul>
  </div>
</div>
<div class="header">
  <div class="headertitle">
<div class="title">zgematrix-lapack.hpp</div>  </div>
</div><!--header-->
<div class="contents">
<a href="zgematrix-lapack_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">/*! solve A*X=Y using zgesv\n</span>
<a name="l00003"></a>00003 <span class="comment">  The argument is zgematrix Y. Y is overwritten and become the solution X.</span>
<a name="l00004"></a>00004 <span class="comment">  A is also overwritten and become P*l*U. */</span>
<a name="l00005"></a><a class="code" href="classzgematrix.html#a06d72be5d303375e7f6319ca95d29600">00005</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a06d72be5d303375e7f6319ca95d29600">zgematrix::zgesv</a>(<a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; mat)
<a name="l00006"></a>00006 {VERBOSE_REPORT;
<a name="l00007"></a>00007 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00008"></a>00008 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> || <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>){
<a name="l00009"></a>00009     ERROR_REPORT;
<a name="l00010"></a>00010     std::cerr &lt;&lt; <span class="stringliteral">&quot;These two matrices cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00011"></a>00011               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00012"></a>00012     exit(1);
<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   <span class="keywordtype">long</span> NRHS(mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LDA(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), *IPIV(<span class="keyword">new</span> <span class="keywordtype">long</span>[<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>]), LDB(mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), INFO(1);
<a name="l00017"></a>00017   zgesv_(n, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, IPIV, mat.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDB, INFO);
<a name="l00018"></a>00018   <span class="keyword">delete</span> [] IPIV;
<a name="l00019"></a>00019   
<a name="l00020"></a>00020   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00021"></a>00021     WARNING_REPORT;
<a name="l00022"></a>00022     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00023"></a>00023   }
<a name="l00024"></a>00024   <span class="keywordflow">return</span> INFO;
<a name="l00025"></a>00025 }
<a name="l00026"></a>00026 
<a name="l00027"></a>00027 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00028"></a>00028 <span class="comment">/*! solve A*x=y using zgesv\n</span>
<a name="l00029"></a>00029 <span class="comment">  The argument is zcovector y. y is overwritten and become the solution x.</span>
<a name="l00030"></a>00030 <span class="comment">  A is also overwritten and become P*l*U. */</span>
<a name="l00031"></a><a class="code" href="classzgematrix.html#ad02dcbfd68ddfbeac864e89773cd5f31">00031</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a06d72be5d303375e7f6319ca95d29600">zgematrix::zgesv</a>(<a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a>&amp; vec)
<a name="l00032"></a>00032 {VERBOSE_REPORT;
<a name="l00033"></a>00033 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00034"></a>00034 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> || <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>){
<a name="l00035"></a>00035     ERROR_REPORT;
<a name="l00036"></a>00036     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00037"></a>00037               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00038"></a>00038     exit(1);
<a name="l00039"></a>00039   }
<a name="l00040"></a>00040 <span class="preprocessor">#endif//CPPL_DEBUG </span>
<a name="l00041"></a>00041 <span class="preprocessor"></span>  <span class="keywordtype">long</span> NRHS(1), LDA(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), *IPIV(<span class="keyword">new</span> <span class="keywordtype">long</span>[<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>]), LDB(vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>), INFO(1);
<a name="l00042"></a>00042   zgesv_(n, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, IPIV, vec.<a class="code" href="classzcovector.html#a7c812242cb084ba940fb61755a3c8cf7" title="1D array to store vector data">array</a>, LDB, INFO);
<a name="l00043"></a>00043   <span class="keyword">delete</span> [] IPIV;
<a name="l00044"></a>00044   
<a name="l00045"></a>00045   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00046"></a>00046     WARNING_REPORT;
<a name="l00047"></a>00047     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00048"></a>00048   }
<a name="l00049"></a>00049   <span class="keywordflow">return</span> INFO;
<a name="l00050"></a>00050 }
<a name="l00051"></a>00051 <span class="comment"></span>
<a name="l00052"></a>00052 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00053"></a>00053 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00054"></a>00054 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00055"></a>00055 <span class="comment"></span>
<a name="l00056"></a>00056 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00057"></a>00057 <span class="comment">/*! solve overdetermined or underdetermined A*X=Y using zgels\n*/</span>
<a name="l00058"></a><a class="code" href="classzgematrix.html#a9976c951912b2c4b4a37cd7e96624ffe">00058</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a9976c951912b2c4b4a37cd7e96624ffe">zgematrix::zgels</a>(<a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; mat)
<a name="l00059"></a>00059 {VERBOSE_REPORT;
<a name="l00060"></a>00060 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00061"></a>00061 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>){
<a name="l00062"></a>00062     ERROR_REPORT;
<a name="l00063"></a>00063     std::cerr &lt;&lt; <span class="stringliteral">&quot;These two matrices cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00064"></a>00064               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00065"></a>00065     exit(1);
<a name="l00066"></a>00066   }
<a name="l00067"></a>00067 <span class="preprocessor">#endif//CPPL_DEBUG    </span>
<a name="l00068"></a>00068 <span class="preprocessor"></span>  
<a name="l00069"></a>00069   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00070"></a>00070     <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>,mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00071"></a>00071     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00072"></a>00072       tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j) =mat(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00073"></a>00073     }}
<a name="l00074"></a>00074     mat.<a class="code" href="classzgematrix.html#a2dad2eca3c01b51176748bdb11018ca6">clear</a>();
<a name="l00075"></a>00075     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(mat,tmp);
<a name="l00076"></a>00076   }
<a name="l00077"></a>00077   
<a name="l00078"></a>00078   <span class="keywordtype">char</span> TRANS(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00079"></a>00079   <span class="keywordtype">long</span> NRHS(mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>),
<a name="l00080"></a>00080     LWORK(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)+std::max(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00081"></a>00081   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00082"></a>00082   zgels_(TRANS, <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, mat.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDB, WORK, LWORK, INFO);
<a name="l00083"></a>00083   <span class="keyword">delete</span> [] WORK;
<a name="l00084"></a>00084   
<a name="l00085"></a>00085   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&gt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//overdetermined</span>
<a name="l00086"></a>00086     <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>,mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00087"></a>00087     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;tmp.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;tmp.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00088"></a>00088       tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j) =mat(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00089"></a>00089     }}
<a name="l00090"></a>00090     mat.<a class="code" href="classzgematrix.html#a2dad2eca3c01b51176748bdb11018ca6">clear</a>();
<a name="l00091"></a>00091     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(mat,tmp);
<a name="l00092"></a>00092   }
<a name="l00093"></a>00093   
<a name="l00094"></a>00094   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00095"></a>00095     WARNING_REPORT;
<a name="l00096"></a>00096     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00097"></a>00097   }
<a name="l00098"></a>00098   <span class="keywordflow">return</span> INFO;
<a name="l00099"></a>00099 }
<a name="l00100"></a>00100 
<a name="l00101"></a>00101 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00102"></a>00102 <span class="comment">/*! solve overdetermined or underdetermined A*x=y using zgels\n*/</span>
<a name="l00103"></a><a class="code" href="classzgematrix.html#af74ea023e16c5ca2628d219d671cda2d">00103</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a9976c951912b2c4b4a37cd7e96624ffe">zgematrix::zgels</a>(<a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a>&amp; vec)
<a name="l00104"></a>00104 {VERBOSE_REPORT;
<a name="l00105"></a>00105 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00106"></a>00106 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>){
<a name="l00107"></a>00107     ERROR_REPORT;
<a name="l00108"></a>00108     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00109"></a>00109               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00110"></a>00110     exit(1);
<a name="l00111"></a>00111   }
<a name="l00112"></a>00112 <span class="preprocessor">#endif//CPPL_DEBUG    </span>
<a name="l00113"></a>00113 <span class="preprocessor"></span>  
<a name="l00114"></a>00114   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00115"></a>00115     <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00116"></a>00116     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)=vec(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>); }
<a name="l00117"></a>00117     vec.<a class="code" href="classzcovector.html#aa955237a69da80b75255549ceeafb365">clear</a>();
<a name="l00118"></a>00118     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(vec,tmp);
<a name="l00119"></a>00119   }
<a name="l00120"></a>00120   
<a name="l00121"></a>00121   <span class="keywordtype">char</span> TRANS(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00122"></a>00122   <span class="keywordtype">long</span> NRHS(1), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>),
<a name="l00123"></a>00123     LWORK(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)+std::max(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00124"></a>00124   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00125"></a>00125   zgels_(TRANS, <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, vec.<a class="code" href="classzcovector.html#a7c812242cb084ba940fb61755a3c8cf7" title="1D array to store vector data">array</a>, LDB, WORK, LWORK, INFO);
<a name="l00126"></a>00126   <span class="keyword">delete</span> [] WORK;
<a name="l00127"></a>00127   
<a name="l00128"></a>00128   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&gt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//overdetermined</span>
<a name="l00129"></a>00129     <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00130"></a>00130     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;tmp.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)=vec(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>); }
<a name="l00131"></a>00131     vec.<a class="code" href="classzcovector.html#aa955237a69da80b75255549ceeafb365">clear</a>();
<a name="l00132"></a>00132     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(vec,tmp);
<a name="l00133"></a>00133   }
<a name="l00134"></a>00134   
<a name="l00135"></a>00135   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00136"></a>00136     WARNING_REPORT;
<a name="l00137"></a>00137     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00138"></a>00138   }
<a name="l00139"></a>00139   <span class="keywordflow">return</span> INFO;
<a name="l00140"></a>00140 }
<a name="l00141"></a>00141 
<a name="l00142"></a>00142 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00143"></a>00143 <span class="comment">/*! solve overdetermined or underdetermined A*X=Y using zgels</span>
<a name="l00144"></a>00144 <span class="comment">  with the sum of residual squares output\n</span>
<a name="l00145"></a>00145 <span class="comment">  The residual is set as the columnwise sum of residual squares </span>
<a name="l00146"></a>00146 <span class="comment">  for overdetermined problems </span>
<a name="l00147"></a>00147 <span class="comment">  while it is always zero for underdetermined problems.</span>
<a name="l00148"></a>00148 <span class="comment">*/</span>
<a name="l00149"></a><a class="code" href="classzgematrix.html#a9c86aed41e48cc68b85cc48a8f8e862c">00149</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a9976c951912b2c4b4a37cd7e96624ffe">zgematrix::zgels</a>(<a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; mat, <a class="code" href="classdrovector.html" title="Real Double-precision Row Vector Class.">drovector</a>&amp; residual)
<a name="l00150"></a>00150 {VERBOSE_REPORT;
<a name="l00151"></a>00151 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00152"></a>00152 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>){
<a name="l00153"></a>00153     ERROR_REPORT;
<a name="l00154"></a>00154     std::cerr &lt;&lt; <span class="stringliteral">&quot;These two matrices cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00155"></a>00155               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00156"></a>00156     exit(1);
<a name="l00157"></a>00157   }
<a name="l00158"></a>00158 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00159"></a>00159 <span class="preprocessor"></span>  
<a name="l00160"></a>00160   residual.<a class="code" href="classdrovector.html#a3b2c5a9ed38d2e7d42cbafc635e45db2">resize</a>(mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>); residual.<a class="code" href="classdrovector.html#a845494ed14746353f61c962b3a5b5793">zero</a>();
<a name="l00161"></a>00161   
<a name="l00162"></a>00162   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00163"></a>00163     <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>,mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00164"></a>00164     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00165"></a>00165       tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j) =mat(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00166"></a>00166     }}
<a name="l00167"></a>00167     mat.<a class="code" href="classzgematrix.html#a2dad2eca3c01b51176748bdb11018ca6">clear</a>();
<a name="l00168"></a>00168     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(mat,tmp);
<a name="l00169"></a>00169   }
<a name="l00170"></a>00170   
<a name="l00171"></a>00171   <span class="keywordtype">char</span> TRANS(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00172"></a>00172   <span class="keywordtype">long</span> NRHS(mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(mat.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>),
<a name="l00173"></a>00173     LWORK(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)+std::max(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00174"></a>00174   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00175"></a>00175   zgels_(TRANS, <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, mat.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDB, WORK, LWORK, INFO);
<a name="l00176"></a>00176   <span class="keyword">delete</span> [] WORK;
<a name="l00177"></a>00177   
<a name="l00178"></a>00178   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&gt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//overdetermined</span>
<a name="l00179"></a>00179     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;residual.<a class="code" href="classdrovector.html#a08df95e527c85a13ed99c4a0fd2b303e" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>-<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00180"></a>00180       residual(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>) += std::norm(mat(n+j,<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>));
<a name="l00181"></a>00181     }}
<a name="l00182"></a>00182     
<a name="l00183"></a>00183     <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>,mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00184"></a>00184     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;tmp.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;tmp.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00185"></a>00185       tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j) =mat(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00186"></a>00186     }}
<a name="l00187"></a>00187     mat.<a class="code" href="classzgematrix.html#a2dad2eca3c01b51176748bdb11018ca6">clear</a>();
<a name="l00188"></a>00188     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(mat,tmp);
<a name="l00189"></a>00189   }
<a name="l00190"></a>00190   
<a name="l00191"></a>00191   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00192"></a>00192     WARNING_REPORT;
<a name="l00193"></a>00193     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00194"></a>00194   }
<a name="l00195"></a>00195   <span class="keywordflow">return</span> INFO;
<a name="l00196"></a>00196 }
<a name="l00197"></a>00197 
<a name="l00198"></a>00198 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00199"></a>00199 <span class="comment">/*! solve overdetermined or underdetermined A*x=y using zgels</span>
<a name="l00200"></a>00200 <span class="comment">  with the sum of residual squares output\n</span>
<a name="l00201"></a>00201 <span class="comment">  The residual is set as the sum of residual squares for overdetermined problems</span>
<a name="l00202"></a>00202 <span class="comment">  while it is always zero for underdetermined problems.</span>
<a name="l00203"></a>00203 <span class="comment">*/</span>
<a name="l00204"></a><a class="code" href="classzgematrix.html#a70141ecb4bd86d1cccfa819e897dc9bc">00204</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a9976c951912b2c4b4a37cd7e96624ffe">zgematrix::zgels</a>(<a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a>&amp; vec, <span class="keywordtype">double</span>&amp; residual)
<a name="l00205"></a>00205 {VERBOSE_REPORT;
<a name="l00206"></a>00206 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00207"></a>00207 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>){
<a name="l00208"></a>00208     ERROR_REPORT;
<a name="l00209"></a>00209     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00210"></a>00210               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00211"></a>00211     exit(1);
<a name="l00212"></a>00212   }
<a name="l00213"></a>00213 <span class="preprocessor">#endif//CPPL_DEBUG    </span>
<a name="l00214"></a>00214 <span class="preprocessor"></span>  
<a name="l00215"></a>00215   residual=0.0;
<a name="l00216"></a>00216   
<a name="l00217"></a>00217   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00218"></a>00218     <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00219"></a>00219     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)=vec(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>); }
<a name="l00220"></a>00220     vec.<a class="code" href="classzcovector.html#aa955237a69da80b75255549ceeafb365">clear</a>();
<a name="l00221"></a>00221     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(vec,tmp);
<a name="l00222"></a>00222   }
<a name="l00223"></a>00223   
<a name="l00224"></a>00224   <span class="keywordtype">char</span> TRANS(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00225"></a>00225   <span class="keywordtype">long</span> NRHS(1), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>),
<a name="l00226"></a>00226     LWORK(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)+std::max(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00227"></a>00227   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00228"></a>00228   zgels_(TRANS, <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, vec.<a class="code" href="classzcovector.html#a7c812242cb084ba940fb61755a3c8cf7" title="1D array to store vector data">array</a>, LDB, WORK, LWORK, INFO);
<a name="l00229"></a>00229   <span class="keyword">delete</span> [] WORK;
<a name="l00230"></a>00230   
<a name="l00231"></a>00231   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&gt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//overdetermined</span>
<a name="l00232"></a>00232     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>-<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ residual+=std::norm(vec(n+<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)); }
<a name="l00233"></a>00233     
<a name="l00234"></a>00234     <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> tmp(n);
<a name="l00235"></a>00235     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;tmp.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)=vec(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>); }
<a name="l00236"></a>00236     vec.<a class="code" href="classzcovector.html#aa955237a69da80b75255549ceeafb365">clear</a>();
<a name="l00237"></a>00237     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(vec,tmp);
<a name="l00238"></a>00238   }
<a name="l00239"></a>00239   
<a name="l00240"></a>00240   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00241"></a>00241     WARNING_REPORT;
<a name="l00242"></a>00242     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00243"></a>00243   }
<a name="l00244"></a>00244   <span class="keywordflow">return</span> INFO;
<a name="l00245"></a>00245 }
<a name="l00246"></a>00246 <span class="comment"></span>
<a name="l00247"></a>00247 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00248"></a>00248 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00249"></a>00249 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00250"></a>00250 <span class="comment"></span>
<a name="l00251"></a>00251 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00252"></a>00252 <span class="comment">/*! calculate the least-squares-least-norm solution </span>
<a name="l00253"></a>00253 <span class="comment">  for overdetermined or underdetermined A*x=y using zgelss\n */</span>
<a name="l00254"></a><a class="code" href="classzgematrix.html#aade70e3c2ecde1c7a63023fbd84210d9">00254</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#aade70e3c2ecde1c7a63023fbd84210d9">zgematrix::zgelss</a>(<a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a>&amp; B, <a class="code" href="classdcovector.html" title="Real Double-precision Column Vector Class.">dcovector</a>&amp; S, <span class="keywordtype">long</span>&amp; RANK,
<a name="l00255"></a>00255                               <span class="keyword">const</span> <span class="keywordtype">double</span> RCOND =-1. )
<a name="l00256"></a>00256 {VERBOSE_REPORT;
<a name="l00257"></a>00257 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00258"></a>00258 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=B.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>){
<a name="l00259"></a>00259     ERROR_REPORT;
<a name="l00260"></a>00260     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00261"></a>00261               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; B.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00262"></a>00262     exit(1);
<a name="l00263"></a>00263   }
<a name="l00264"></a>00264 <span class="preprocessor">#endif//CPPL_DEBUG    </span>
<a name="l00265"></a>00265 <span class="preprocessor"></span>  
<a name="l00266"></a>00266   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00267"></a>00267     <a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00268"></a>00268     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;B.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>)=B(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>); }
<a name="l00269"></a>00269     B.<a class="code" href="classzcovector.html#aa955237a69da80b75255549ceeafb365">clear</a>();
<a name="l00270"></a>00270     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(B,tmp);
<a name="l00271"></a>00271   }
<a name="l00272"></a>00272   
<a name="l00273"></a>00273   S.<a class="code" href="classdcovector.html#a969d5aaa75cde3f7b1ddcfcdefddd7af">resize</a>(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>));
<a name="l00274"></a>00274   
<a name="l00275"></a>00275   <span class="keywordtype">long</span> NRHS(1), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(B.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>),
<a name="l00276"></a>00276     LWORK(2*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>) +std::max(std::max(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00277"></a>00277   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[5*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)]);
<a name="l00278"></a>00278   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00279"></a>00279   zgelss_(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, B.<a class="code" href="classzcovector.html#a7c812242cb084ba940fb61755a3c8cf7" title="1D array to store vector data">array</a>, LDB, S.<a class="code" href="classdcovector.html#a9b188bf160d8f7e24ea1d41deaceaf6d" title="1D array to store vector data">array</a>, RCOND, RANK, 
<a name="l00280"></a>00280           WORK, LWORK, RWORK, INFO);
<a name="l00281"></a>00281   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK;
<a name="l00282"></a>00282   
<a name="l00283"></a>00283   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00284"></a>00284     WARNING_REPORT;
<a name="l00285"></a>00285     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00286"></a>00286   }
<a name="l00287"></a>00287   <span class="keywordflow">return</span> INFO;
<a name="l00288"></a>00288 }
<a name="l00289"></a>00289 
<a name="l00290"></a>00290 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00291"></a>00291 <span class="comment">/*! calculate the least-squares-least-norm solution </span>
<a name="l00292"></a>00292 <span class="comment">  for overdetermined or underdetermined A*x=y using zgelss\n */</span>
<a name="l00293"></a><a class="code" href="classzgematrix.html#a745354dfc747d73c6a2ea53f0045c7e1">00293</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#aade70e3c2ecde1c7a63023fbd84210d9">zgematrix::zgelss</a>(<a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; B, <a class="code" href="classdcovector.html" title="Real Double-precision Column Vector Class.">dcovector</a>&amp; S, <span class="keywordtype">long</span>&amp; RANK,
<a name="l00294"></a>00294                               <span class="keyword">const</span> <span class="keywordtype">double</span> RCOND =-1. )
<a name="l00295"></a>00295 {VERBOSE_REPORT;
<a name="l00296"></a>00296 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00297"></a>00297 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=B.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>){
<a name="l00298"></a>00298     ERROR_REPORT;
<a name="l00299"></a>00299     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00300"></a>00300               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; B.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; B.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00301"></a>00301     exit(1);
<a name="l00302"></a>00302   }
<a name="l00303"></a>00303 <span class="preprocessor">#endif//CPPL_DEBUG    </span>
<a name="l00304"></a>00304 <span class="preprocessor"></span>  
<a name="l00305"></a>00305   <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){ <span class="comment">//underdetermined</span>
<a name="l00306"></a>00306     <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> tmp(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>,B.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00307"></a>00307     <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;B.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){
<a name="l00308"></a>00308       <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;B.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){
<a name="l00309"></a>00309         tmp(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j)=B(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00310"></a>00310       }
<a name="l00311"></a>00311     }
<a name="l00312"></a>00312     B.<a class="code" href="classzgematrix.html#a2dad2eca3c01b51176748bdb11018ca6">clear</a>();
<a name="l00313"></a>00313     <a class="code" href="classzgematrix.html#a0621d72dc29dc1e6330ab76d5fb250b7">swap</a>(B,tmp);
<a name="l00314"></a>00314   }
<a name="l00315"></a>00315   
<a name="l00316"></a>00316   S.<a class="code" href="classdcovector.html#a969d5aaa75cde3f7b1ddcfcdefddd7af">resize</a>(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>));
<a name="l00317"></a>00317   
<a name="l00318"></a>00318   <span class="keywordtype">long</span> NRHS(B.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDB(B.<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>),
<a name="l00319"></a>00319     LWORK(2*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>) +std::max(std::max(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),NRHS)), INFO(1);
<a name="l00320"></a>00320   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[5*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)]);
<a name="l00321"></a>00321   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00322"></a>00322   zgelss_(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, NRHS, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, B.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDB, S.<a class="code" href="classdcovector.html#a9b188bf160d8f7e24ea1d41deaceaf6d" title="1D array to store vector data">array</a>, RCOND, RANK, 
<a name="l00323"></a>00323           WORK, LWORK, RWORK, INFO);
<a name="l00324"></a>00324   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK;
<a name="l00325"></a>00325   
<a name="l00326"></a>00326   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00327"></a>00327     WARNING_REPORT;
<a name="l00328"></a>00328     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00329"></a>00329   }
<a name="l00330"></a>00330   <span class="keywordflow">return</span> INFO;
<a name="l00331"></a>00331 }
<a name="l00332"></a>00332 <span class="comment"></span>
<a name="l00333"></a>00333 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00334"></a>00334 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00335"></a>00335 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00336"></a>00336 <span class="comment"></span>
<a name="l00337"></a>00337 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00338"></a>00338 <span class="comment">/*! calculate eigenvalues\n</span>
<a name="l00339"></a>00339 <span class="comment">  The argument need not to be initialized.</span>
<a name="l00340"></a>00340 <span class="comment">  w is overwitten and become eigenvalues.</span>
<a name="l00341"></a>00341 <span class="comment">  This matrix is also overwritten. */</span>
<a name="l00342"></a><a class="code" href="classzgematrix.html#ad20e206765b06af26c30706ea3d04456">00342</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#ad20e206765b06af26c30706ea3d04456">zgematrix::zgeev</a>(std::vector&lt; comple &gt;&amp; w)
<a name="l00343"></a>00343 {VERBOSE_REPORT;
<a name="l00344"></a>00344 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00345"></a>00345 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){
<a name="l00346"></a>00346     ERROR_REPORT;
<a name="l00347"></a>00347     std::cerr &lt;&lt; <span class="stringliteral">&quot;This matrix cannot have eigenvalues.&quot;</span> &lt;&lt; std::endl
<a name="l00348"></a>00348               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00349"></a>00349     exit(1);
<a name="l00350"></a>00350   }
<a name="l00351"></a>00351 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00352"></a>00352 <span class="preprocessor"></span>  
<a name="l00353"></a>00353   w.resize(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00354"></a>00354   <span class="keywordtype">char</span> JOBVL(<span class="charliteral">&#39;n&#39;</span>), JOBVR(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00355"></a>00355   <span class="keywordtype">long</span> LDA(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LDVL(1), LDVR(1), LWORK(4*<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), INFO(1);
<a name="l00356"></a>00356   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[2*<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>]);
<a name="l00357"></a>00357   comple *VL(NULL), *VR(NULL), 
<a name="l00358"></a>00358     *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00359"></a>00359   zgeev_(JOBVL, JOBVR, n, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], 
<a name="l00360"></a>00360          VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO);
<a name="l00361"></a>00361   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK; <span class="keyword">delete</span> [] VL; <span class="keyword">delete</span> [] VR;
<a name="l00362"></a>00362   
<a name="l00363"></a>00363   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00364"></a>00364     WARNING_REPORT;
<a name="l00365"></a>00365     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00366"></a>00366   }
<a name="l00367"></a>00367   <span class="keywordflow">return</span> INFO;
<a name="l00368"></a>00368 }
<a name="l00369"></a>00369 
<a name="l00370"></a>00370 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00371"></a>00371 <span class="comment">/*! calculate eigenvalues and right eigenvectors\n</span>
<a name="l00372"></a>00372 <span class="comment">  All of the arguments need not to be initialized.</span>
<a name="l00373"></a>00373 <span class="comment">  w, vr are overwitten and become eigenvalues and right eigenvectors, </span>
<a name="l00374"></a>00374 <span class="comment">  respectively. </span>
<a name="l00375"></a>00375 <span class="comment">  This matrix is also overwritten. */</span>
<a name="l00376"></a><a class="code" href="classzgematrix.html#a77f893dbd14c3b59a8c0fb4dd48b864a">00376</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#ad20e206765b06af26c30706ea3d04456">zgematrix::zgeev</a>(std::vector&lt; comple &gt;&amp; w,
<a name="l00377"></a>00377                              std::vector&lt;zcovector&gt;&amp; vr)
<a name="l00378"></a>00378 {VERBOSE_REPORT;
<a name="l00379"></a>00379 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00380"></a>00380 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){
<a name="l00381"></a>00381     ERROR_REPORT;
<a name="l00382"></a>00382     std::cerr &lt;&lt; <span class="stringliteral">&quot;This matrix cannot have eigenvalues.&quot;</span> &lt;&lt; std::endl
<a name="l00383"></a>00383               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00384"></a>00384     exit(1);
<a name="l00385"></a>00385   }
<a name="l00386"></a>00386 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00387"></a>00387 <span class="preprocessor"></span>  
<a name="l00388"></a>00388   w.resize(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);  vr.resize(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00389"></a>00389   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ vr[<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>].resize(n); }
<a name="l00390"></a>00390   <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> VR(n,n);
<a name="l00391"></a>00391   <span class="keywordtype">char</span> JOBVL(<span class="charliteral">&#39;n&#39;</span>), JOBVR(<span class="charliteral">&#39;V&#39;</span>);
<a name="l00392"></a>00392   <span class="keywordtype">long</span> LDA(n), LDVL(1), LDVR(n), LWORK(4*n), INFO(1);
<a name="l00393"></a>00393   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[2*n]);
<a name="l00394"></a>00394   comple *VL(NULL), *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00395"></a>00395   zgeev_(JOBVL, JOBVR, n, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], 
<a name="l00396"></a>00396          VL, LDVL, VR.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDVR, WORK, LWORK, RWORK, INFO);
<a name="l00397"></a>00397   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK; <span class="keyword">delete</span> [] VL;
<a name="l00398"></a>00398   <span class="comment"></span>
<a name="l00399"></a>00399 <span class="comment">  //// forming ////</span>
<a name="l00400"></a>00400 <span class="comment"></span>  <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){  <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){
<a name="l00401"></a>00401     vr[j](<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>) = VR(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j);
<a name="l00402"></a>00402   }}
<a name="l00403"></a>00403   
<a name="l00404"></a>00404   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00405"></a>00405     WARNING_REPORT;
<a name="l00406"></a>00406     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00407"></a>00407   }
<a name="l00408"></a>00408   <span class="keywordflow">return</span> INFO;
<a name="l00409"></a>00409 }
<a name="l00410"></a>00410 
<a name="l00411"></a>00411 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00412"></a>00412 <span class="comment">/*! calculate eigenvalues and left eigenvectors\n</span>
<a name="l00413"></a>00413 <span class="comment">  All of the arguments need not to be initialized.</span>
<a name="l00414"></a>00414 <span class="comment">  w, vr are overwitten and become eigenvalues and left eigenvectors, </span>
<a name="l00415"></a>00415 <span class="comment">  respectively. </span>
<a name="l00416"></a>00416 <span class="comment">  This matrix is also overwritten. */</span>
<a name="l00417"></a><a class="code" href="classzgematrix.html#a684c4be72b789e64218072efe7f8036b">00417</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#ad20e206765b06af26c30706ea3d04456">zgematrix::zgeev</a>(std::vector&lt; comple &gt;&amp; w,
<a name="l00418"></a>00418                              std::vector&lt;zrovector&gt;&amp; vl)
<a name="l00419"></a>00419 {VERBOSE_REPORT;
<a name="l00420"></a>00420 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00421"></a>00421 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>!=<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){
<a name="l00422"></a>00422     ERROR_REPORT;
<a name="l00423"></a>00423     std::cerr &lt;&lt; <span class="stringliteral">&quot;This matrix cannot have eigenvalues.&quot;</span> &lt;&lt; std::endl
<a name="l00424"></a>00424               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;).&quot;</span> &lt;&lt; std::endl;
<a name="l00425"></a>00425     exit(1);
<a name="l00426"></a>00426   }
<a name="l00427"></a>00427 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00428"></a>00428 <span class="preprocessor"></span>  
<a name="l00429"></a>00429   w.resize(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);  vl.resize(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00430"></a>00430   <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){ vl[<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>].resize(n); }
<a name="l00431"></a>00431   <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a> VL(n,n);
<a name="l00432"></a>00432   <span class="keywordtype">char</span> JOBVL(<span class="charliteral">&#39;V&#39;</span>), JOBVR(<span class="charliteral">&#39;n&#39;</span>);
<a name="l00433"></a>00433   <span class="keywordtype">long</span> LDA(n), LDVL(n), LDVR(1), LWORK(4*n), INFO(1);
<a name="l00434"></a>00434   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[2*n]);
<a name="l00435"></a>00435   comple *VR(NULL), *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00436"></a>00436   zgeev_(JOBVL, JOBVR, n, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], 
<a name="l00437"></a>00437          VL.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO);
<a name="l00438"></a>00438   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK; <span class="keyword">delete</span> [] VR;
<a name="l00439"></a>00439   <span class="comment"></span>
<a name="l00440"></a>00440 <span class="comment">  //// forming ////</span>
<a name="l00441"></a>00441 <span class="comment"></span>  <span class="keywordflow">for</span>(<span class="keywordtype">long</span> j=0; j&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; j++){ <span class="keywordflow">for</span>(<span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>=0; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>&lt;<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>; <a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>++){
<a name="l00442"></a>00442     vl[j](<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>) = <a class="code" href="__zcovector-calc_8hpp.html#a773c28a661407104353f70c7a3ab88f2">std::conj</a>(VL(<a class="code" href="classzgematrix.html#a95a256991aa9fd13fa868a42453bfa8e">i</a>,j));
<a name="l00443"></a>00443   }}
<a name="l00444"></a>00444   
<a name="l00445"></a>00445   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00446"></a>00446     WARNING_REPORT;
<a name="l00447"></a>00447     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00448"></a>00448   }
<a name="l00449"></a>00449   <span class="keywordflow">return</span> INFO;
<a name="l00450"></a>00450 }
<a name="l00451"></a>00451 
<a name="l00452"></a>00452 <span class="comment"></span>
<a name="l00453"></a>00453 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00454"></a>00454 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00455"></a>00455 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00456"></a>00456 <span class="comment"></span>
<a name="l00457"></a>00457 <span class="comment">//=============================================================================</span>
<a name="l00458"></a>00458 <span class="comment">//inline long zgematrix::zgegv()</span>
<a name="l00459"></a>00459 
<a name="l00460"></a>00460 <span class="comment"></span>
<a name="l00461"></a>00461 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00462"></a>00462 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00463"></a>00463 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00464"></a>00464 <span class="comment"></span>
<a name="l00465"></a>00465 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00466"></a>00466 <span class="comment">/*! compute the singular value decomposition (SVD)\n</span>
<a name="l00467"></a>00467 <span class="comment">  The arguments are zcocector S, zgematrix U and VT.</span>
<a name="l00468"></a>00468 <span class="comment">  All of them need not to be initialized.</span>
<a name="l00469"></a>00469 <span class="comment">  S, U and VT are overwitten and become singular values, left singular vectors,</span>
<a name="l00470"></a>00470 <span class="comment">  and right singular vectors respectively.</span>
<a name="l00471"></a>00471 <span class="comment">  This matrix also overwritten.</span>
<a name="l00472"></a>00472 <span class="comment">*/</span>
<a name="l00473"></a><a class="code" href="classzgematrix.html#a41c2fa363688f6e70a9acc4c4f78cc8a">00473</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzgematrix.html#a41c2fa363688f6e70a9acc4c4f78cc8a">zgematrix::zgesvd</a>(<a class="code" href="classdcovector.html" title="Real Double-precision Column Vector Class.">dcovector</a>&amp; S, <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; U, <a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; VT)
<a name="l00474"></a>00474 {VERBOSE_REPORT;
<a name="l00475"></a>00475   <span class="keywordtype">char</span> JOBU(<span class="charliteral">&#39;A&#39;</span>), JOBVT(<span class="charliteral">&#39;A&#39;</span>);
<a name="l00476"></a>00476   <span class="keywordtype">long</span> LDA(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDU(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>), LDVT(<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),
<a name="l00477"></a>00477     LWORK(std::max(3*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)+std::max(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>),5*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>))), INFO(1);
<a name="l00478"></a>00478   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[5*std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)]);
<a name="l00479"></a>00479   comple *WORK(<span class="keyword">new</span> comple[LWORK]);
<a name="l00480"></a>00480   S.<a class="code" href="classdcovector.html#a969d5aaa75cde3f7b1ddcfcdefddd7af">resize</a>(std::min(<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>)); U.<a class="code" href="classzgematrix.html#a701afc041695672eab0d0f3e8466668a">resize</a>(LDU,<a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>); VT.<a class="code" href="classzgematrix.html#a701afc041695672eab0d0f3e8466668a">resize</a>(LDVT,<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>);
<a name="l00481"></a>00481   
<a name="l00482"></a>00482   zgesvd_(JOBU, JOBVT, <a class="code" href="classzgematrix.html#a433dab4cf9fba73d9bc96ec6d626654e" title="matrix row size">m</a>, <a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>, <a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDA, S.<a class="code" href="classdcovector.html#a9b188bf160d8f7e24ea1d41deaceaf6d" title="1D array to store vector data">array</a>, U.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, 
<a name="l00483"></a>00483           LDU, VT.<a class="code" href="classzgematrix.html#aaa50b409ff4060aa10ad3c0f9dcd45ef" title="1D array to store matrix data">array</a>, LDVT, WORK, LWORK, RWORK, INFO);
<a name="l00484"></a>00484   <span class="keyword">delete</span> [] RWORK; <span class="keyword">delete</span> [] WORK;
<a name="l00485"></a>00485   
<a name="l00486"></a>00486   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00487"></a>00487     WARNING_REPORT;
<a name="l00488"></a>00488     std::cerr &lt;&lt; <span class="stringliteral">&quot;Serious trouble happend. INFO = &quot;</span> &lt;&lt; INFO &lt;&lt; <span class="stringliteral">&quot;.&quot;</span> &lt;&lt; std::endl;
<a name="l00489"></a>00489   }
<a name="l00490"></a>00490   <span class="keywordflow">return</span> INFO;
<a name="l00491"></a>00491 }
</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>
