<!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-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_96fc262d801f58b2095d1ae8304f3713.html">zhematrix-</a>      </li>
    </ul>
  </div>
</div>
<div class="header">
  <div class="headertitle">
<div class="title">zhematrix-lapack.hpp</div>  </div>
</div><!--header-->
<div class="contents">
<a href="zhematrix-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 zhesv\n</span>
<a name="l00003"></a>00003 <span class="comment">  The argument is dmatrix Y. Y is overwritten and become the solution X.</span>
<a name="l00004"></a>00004 <span class="comment">  A is also overwritten. </span>
<a name="l00005"></a>00005 <span class="comment">*/</span>
<a name="l00006"></a><a class="code" href="classzhematrix.html#a96f4a565aa37e04d2ca630663f556d63">00006</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a96f4a565aa37e04d2ca630663f556d63">zhematrix::zhesv</a>(<a class="code" href="classzgematrix.html" title="Complex Double-precision General Dence Matrix Class.">zgematrix</a>&amp; mat)
<a name="l00007"></a>00007 {VERBOSE_REPORT;
<a name="l00008"></a>00008 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00009"></a>00009 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>!=mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>){
<a name="l00010"></a>00010     ERROR_REPORT;
<a name="l00011"></a>00011     std::cerr &lt;&lt; <span class="stringliteral">&quot;These two matrices cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00012"></a>00012               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;) and (&quot;</span> &lt;&lt; mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</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="l00013"></a>00013     exit(1);
<a name="l00014"></a>00014   }
<a name="l00015"></a>00015 <span class="preprocessor">#endif//CPPL_DEBUG</span>
<a name="l00016"></a>00016 <span class="preprocessor"></span>  
<a name="l00017"></a>00017   <span class="keywordtype">char</span> UPLO(<span class="charliteral">&#39;l&#39;</span>);
<a name="l00018"></a>00018   <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="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>), *IPIV(<span class="keyword">new</span> <span class="keywordtype">long</span>[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>]), LDB(mat.<a class="code" href="classzgematrix.html#aa2cfc802c95c61389455c6a8ff266d9a" title="matrix column size">n</a>), LWORK(-1), INFO(1);
<a name="l00019"></a>00019   comple *WORK(<span class="keyword">new</span> comple[1]);
<a name="l00020"></a>00020   zhesv_(UPLO, n, NRHS, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" 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, WORK, LWORK, INFO);
<a name="l00021"></a>00021   
<a name="l00022"></a>00022   INFO=1;
<a name="l00023"></a>00023   LWORK = long(std::real(WORK[0]));
<a name="l00024"></a>00024   <span class="keyword">delete</span> [] WORK;  WORK =<span class="keyword">new</span> comple[LWORK];
<a name="l00025"></a>00025   zhesv_(UPLO, n, NRHS, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" 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, WORK, LWORK, INFO);
<a name="l00026"></a>00026   <span class="keyword">delete</span> [] WORK; <span class="keyword">delete</span> [] IPIV;
<a name="l00027"></a>00027   
<a name="l00028"></a>00028   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00029"></a>00029     WARNING_REPORT;
<a name="l00030"></a>00030     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="l00031"></a>00031   }
<a name="l00032"></a>00032   <span class="keywordflow">return</span> INFO;
<a name="l00033"></a>00033 }
<a name="l00034"></a>00034 
<a name="l00035"></a>00035 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00036"></a>00036 <span class="comment">/*! solve A*x=y using zhesv\n</span>
<a name="l00037"></a>00037 <span class="comment">  The argument is zcovector y. y is overwritten and become the solution x.</span>
<a name="l00038"></a>00038 <span class="comment">  A is also overwritten.</span>
<a name="l00039"></a>00039 <span class="comment">*/</span>
<a name="l00040"></a><a class="code" href="classzhematrix.html#a81fb6916c997e91abfd8ff6a7859ff81">00040</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a96f4a565aa37e04d2ca630663f556d63">zhematrix::zhesv</a>(<a class="code" href="classzcovector.html" title="Complex Double-precision Column Vector Class.">zcovector</a>&amp; vec)
<a name="l00041"></a>00041 {VERBOSE_REPORT;
<a name="l00042"></a>00042 <span class="preprocessor">#ifdef  CPPL_DEBUG</span>
<a name="l00043"></a>00043 <span class="preprocessor"></span>  <span class="keywordflow">if</span>(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>!=vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>){
<a name="l00044"></a>00044     ERROR_REPORT;
<a name="l00045"></a>00045     std::cerr &lt;&lt; <span class="stringliteral">&quot;These matrix and vector cannot be solved.&quot;</span> &lt;&lt; std::endl
<a name="l00046"></a>00046               &lt;&lt; <span class="stringliteral">&quot;Your input was (&quot;</span> &lt;&lt; <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a> &lt;&lt; <span class="stringliteral">&quot;x&quot;</span> &lt;&lt; <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" 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="l00047"></a>00047     exit(1);
<a name="l00048"></a>00048   }
<a name="l00049"></a>00049 <span class="preprocessor">#endif//CPPL_DEBUG </span>
<a name="l00050"></a>00050 <span class="preprocessor"></span>  
<a name="l00051"></a>00051   <span class="keywordtype">char</span> UPLO(<span class="charliteral">&#39;l&#39;</span>);
<a name="l00052"></a>00052   <span class="keywordtype">long</span> NRHS(1), LDA(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>), *IPIV(<span class="keyword">new</span> <span class="keywordtype">long</span>[<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>]), LDB(vec.<a class="code" href="classzcovector.html#a25de1e5eff40a9fdae41255b5b4ab6d1" title="vector size">l</a>), LWORK(-1), INFO(1);
<a name="l00053"></a>00053   comple *WORK( <span class="keyword">new</span> comple[1] );
<a name="l00054"></a>00054   zhesv_(UPLO, n, NRHS, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" 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, WORK, LWORK, INFO);
<a name="l00055"></a>00055   
<a name="l00056"></a>00056   INFO=1;
<a name="l00057"></a>00057   LWORK = long(std::real(WORK[0]));
<a name="l00058"></a>00058   <span class="keyword">delete</span> [] WORK;  WORK = <span class="keyword">new</span> comple[LWORK];
<a name="l00059"></a>00059   zhesv_(UPLO, n, NRHS, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" 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, WORK, LWORK, INFO);
<a name="l00060"></a>00060   <span class="keyword">delete</span> [] WORK;  <span class="keyword">delete</span> [] IPIV;
<a name="l00061"></a>00061   
<a name="l00062"></a>00062   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00063"></a>00063     WARNING_REPORT;
<a name="l00064"></a>00064     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="l00065"></a>00065   }
<a name="l00066"></a>00066   <span class="keywordflow">return</span> INFO;
<a name="l00067"></a>00067 }
<a name="l00068"></a>00068 <span class="comment"></span>
<a name="l00069"></a>00069 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00070"></a>00070 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00071"></a>00071 <span class="comment">///////////////////////////////////////////////////////////////////////////////</span>
<a name="l00072"></a>00072 <span class="comment"></span>
<a name="l00073"></a>00073 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00074"></a>00074 <span class="comment">/*! calculate eigenvalues and eigenvectors.\n</span>
<a name="l00075"></a>00075 <span class="comment">  All of the arguments need not to be initialized.</span>
<a name="l00076"></a>00076 <span class="comment">  w is overwitten and become eigenvalues.</span>
<a name="l00077"></a>00077 <span class="comment">  This matrix is also overwritten. </span>
<a name="l00078"></a>00078 <span class="comment">  if jobz=1, this matrix becomes eigenvectors.</span>
<a name="l00079"></a>00079 <span class="comment">*/</span>
<a name="l00080"></a><a class="code" href="classzhematrix.html#a844ba3d4066a08710d8cf636bd34fc05">00080</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a844ba3d4066a08710d8cf636bd34fc05">zhematrix::zheev</a>(std::vector&lt;double&gt;&amp; w,
<a name="l00081"></a>00081                              <span class="keyword">const</span> <span class="keywordtype">bool</span>&amp; jobz=0)
<a name="l00082"></a>00082 {VERBOSE_REPORT;
<a name="l00083"></a>00083   w.resize(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);
<a name="l00084"></a>00084   <span class="keywordtype">char</span> JOBZ, UPLO(<span class="charliteral">&#39;l&#39;</span>);
<a name="l00085"></a>00085   <span class="keywordflow">if</span>(jobz==0){ JOBZ=<span class="charliteral">&#39;n&#39;</span>; } <span class="keywordflow">else</span>{ JOBZ=<span class="charliteral">&#39;V&#39;</span>; }
<a name="l00086"></a>00086   <span class="keywordtype">long</span> LDA(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>), INFO(1), LWORK(-1);
<a name="l00087"></a>00087   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[std::max(<span class="keywordtype">long</span>(1), 3*<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>-2)]);
<a name="l00088"></a>00088   comple *WORK(<span class="keyword">new</span> comple[1]);
<a name="l00089"></a>00089   zheev_(JOBZ, UPLO, <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00090"></a>00090   
<a name="l00091"></a>00091   INFO=1;
<a name="l00092"></a>00092   LWORK = long(std::real(WORK[0]));
<a name="l00093"></a>00093   <span class="keyword">delete</span> [] WORK;  WORK = <span class="keyword">new</span> comple[LWORK];
<a name="l00094"></a>00094   zheev_(JOBZ, UPLO, <a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00095"></a>00095   <span class="keyword">delete</span> [] RWORK;  <span class="keyword">delete</span> [] WORK;
<a name="l00096"></a>00096   
<a name="l00097"></a>00097   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00098"></a>00098     WARNING_REPORT;
<a name="l00099"></a>00099     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="l00100"></a>00100   }
<a name="l00101"></a>00101   <span class="keywordflow">return</span> INFO;
<a name="l00102"></a>00102 }
<a name="l00103"></a>00103 
<a name="l00104"></a>00104 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00105"></a>00105 <span class="comment">/*! calculate eigenvalues and eigenvectors.\n</span>
<a name="l00106"></a>00106 <span class="comment">  All of the arguments need not to be initialized.</span>
<a name="l00107"></a>00107 <span class="comment">  w and v are overwitten and become </span>
<a name="l00108"></a>00108 <span class="comment">  eigenvalues and eigenvectors, respectively.</span>
<a name="l00109"></a>00109 <span class="comment">  This matrix is also overwritten. </span>
<a name="l00110"></a>00110 <span class="comment">*/</span>
<a name="l00111"></a><a class="code" href="classzhematrix.html#ac55520d4b47616d15387d072963e1f64">00111</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a844ba3d4066a08710d8cf636bd34fc05">zhematrix::zheev</a>(std::vector&lt;double&gt;&amp; w,
<a name="l00112"></a>00112                              std::vector&lt;zcovector&gt;&amp; v)
<a name="l00113"></a>00113 {VERBOSE_REPORT;
<a name="l00114"></a>00114   w.resize(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);  v.resize(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);
<a name="l00115"></a>00115   <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>++){ v[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>].resize(n); }
<a name="l00116"></a>00116   <span class="keywordtype">char</span> JOBZ(<span class="charliteral">&#39;V&#39;</span>), UPLO(<span class="charliteral">&#39;l&#39;</span>);
<a name="l00117"></a>00117   <span class="keywordtype">long</span> LDA(n), INFO(1), LWORK(-1);
<a name="l00118"></a>00118   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[std::max(<span class="keywordtype">long</span>(1), 3*n-2)]);
<a name="l00119"></a>00119   comple *WORK(<span class="keyword">new</span> comple[1]);
<a name="l00120"></a>00120   zheev_(JOBZ, UPLO, n, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00121"></a>00121   
<a name="l00122"></a>00122   INFO=1;
<a name="l00123"></a>00123   LWORK = long(std::real(WORK[0]));
<a name="l00124"></a>00124   <span class="keyword">delete</span> [] WORK;  WORK = <span class="keyword">new</span> comple[LWORK];
<a name="l00125"></a>00125   zheev_(JOBZ, UPLO, n, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00126"></a>00126   <span class="keyword">delete</span> [] RWORK;  <span class="keyword">delete</span> [] WORK;
<a name="l00127"></a>00127   <span class="comment"></span>
<a name="l00128"></a>00128 <span class="comment">  //// forming ////</span>
<a name="l00129"></a>00129 <span class="comment"></span>  <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>++){ <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++){
<a name="l00130"></a>00130     v[j](<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>) = <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>+n*j];
<a name="l00131"></a>00131   }}
<a name="l00132"></a>00132   
<a name="l00133"></a>00133   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00134"></a>00134     WARNING_REPORT;
<a name="l00135"></a>00135     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="l00136"></a>00136   }
<a name="l00137"></a>00137   <span class="keywordflow">return</span> INFO;
<a name="l00138"></a>00138 }
<a name="l00139"></a>00139 
<a name="l00140"></a>00140 <span class="comment">//=============================================================================</span><span class="comment"></span>
<a name="l00141"></a>00141 <span class="comment">/*! calculate eigenvalues and eigenvectors.\n</span>
<a name="l00142"></a>00142 <span class="comment">  All of the arguments need not to be initialized.</span>
<a name="l00143"></a>00143 <span class="comment">  w and v are overwitten and become </span>
<a name="l00144"></a>00144 <span class="comment">  eigenvalues and eigenvectors, respectively.</span>
<a name="l00145"></a>00145 <span class="comment">  This matrix is also overwritten. </span>
<a name="l00146"></a>00146 <span class="comment">*/</span>
<a name="l00147"></a><a class="code" href="classzhematrix.html#aa3482054a1bb8cea64e4c3d53cf03b22">00147</a> <span class="keyword">inline</span> <span class="keywordtype">long</span> <a class="code" href="classzhematrix.html#a844ba3d4066a08710d8cf636bd34fc05">zhematrix::zheev</a>(std::vector&lt;double&gt;&amp; w,
<a name="l00148"></a>00148                              std::vector&lt;zrovector&gt;&amp; v)
<a name="l00149"></a>00149 {VERBOSE_REPORT;
<a name="l00150"></a>00150   w.resize(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>);  v.resize(<a class="code" href="classzhematrix.html#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</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#a03e22e408f98102f65c1b8b4acc4c082" title="matrix column size">n</a>; <a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>++){ v[<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>].resize(n); }
<a name="l00152"></a>00152   <span class="keywordtype">char</span> JOBZ(<span class="charliteral">&#39;V&#39;</span>), UPLO(<span class="charliteral">&#39;l&#39;</span>);
<a name="l00153"></a>00153   <span class="keywordtype">long</span> LDA(n), INFO(1), LWORK(-1);
<a name="l00154"></a>00154   <span class="keywordtype">double</span> *RWORK(<span class="keyword">new</span> <span class="keywordtype">double</span>[std::max(<span class="keywordtype">long</span>(1), 3*n-2)]);
<a name="l00155"></a>00155   comple *WORK(<span class="keyword">new</span> comple[1]);
<a name="l00156"></a>00156   zheev_(JOBZ, UPLO, n, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00157"></a>00157   
<a name="l00158"></a>00158   INFO=1;
<a name="l00159"></a>00159   LWORK = long(std::real(WORK[0]));
<a name="l00160"></a>00160   <span class="keyword">delete</span> [] WORK;  WORK = <span class="keyword">new</span> comple[LWORK];
<a name="l00161"></a>00161   zheev_(JOBZ, UPLO, n, <a class="code" href="classzhematrix.html#a9f868de87a273d9f02ff31700fd2e068" title="1D array to store matrix data">array</a>, LDA, &amp;w[0], WORK, LWORK, RWORK, INFO);
<a name="l00162"></a>00162   <span class="keyword">delete</span> [] RWORK;  <span class="keyword">delete</span> [] WORK;
<a name="l00163"></a>00163   <span class="comment"></span>
<a name="l00164"></a>00164 <span class="comment">  //// forming ////</span>
<a name="l00165"></a>00165 <span class="comment"></span>  <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>++){ <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++){
<a name="l00166"></a>00166     v[j](<a class="code" href="classzhematrix.html#a3ccb001debd3ab5da87b87cc4ac86e1f">i</a>) = <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>+n*j];
<a name="l00167"></a>00167   }}
<a name="l00168"></a>00168   
<a name="l00169"></a>00169   <span class="keywordflow">if</span>(INFO!=0){
<a name="l00170"></a>00170     WARNING_REPORT;
<a name="l00171"></a>00171     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="l00172"></a>00172   }
<a name="l00173"></a>00173   <span class="keywordflow">return</span> INFO;
<a name="l00174"></a>00174 }
</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>
