<?xml-stylesheet type="text/xsl" href="../styles/pmathml.xsl"?>
<!-- saved from url=(0014)about:internet -->
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:dsi="http://www.w3.org/1999/xlink" xmlns:m="http://www.w3.org/1998/Math/MathML" xml:space="preserve"><head><meta http-equiv="Content-Type" content="text/html; charset=US-ASCII"/><title>F08QXF (ZTREVC) : NAG Library, Mark 23</title><link rel="stylesheet" href="../styles/libdoc.css" type="text/css"/><script type="text/javascript">
   function showLevel(_levelId){
    var thisLevel = document.getElementById(_levelId);
    var thisplus = document.getElementById( _levelId.concat('plus'));
    var thisminus = document.getElementById( _levelId.concat('minus'));
    if(thisLevel.style.display != "block"){
     thisLevel.style.display = "block";
     thisplus.style.display = "none";
     thisminus.style.display = "inline";
     }
    else{
     thisLevel.style.display = "none";
     thisminus.style.display = "none";
     thisplus.style.display = "inline";
     }
    }
  </script></head><body><hr/><div><a class="rout" href="../../pdf/F08/f08qxf.pdf">F08QXF (ZTREVC) (PDF version)</a></div><div><a class="chap" href="f08conts.xml">F08 Chapter Contents</a></div><div><a class="chapint" href="f08intro.xml">F08 Chapter Introduction</a></div>
<div><a class="htmltoc" href="../FRONTMATTER/manconts.xml">NAG Library Manual</a></div><hr/><h1 class="libdoc">NAG Library Routine Document<br/><br/>F08QXF (ZTREVC)</h1><div class="paramtext"><div class="header"><b>Note:</b>&#160; before using this routine, please read the Users' Note for your implementation to check the interpretation of <span class="bitalic">bold italicised</span> terms and other implementation-dependent details.</div></div> 
<div class="htmltoc">
<h2 class="htmltoc"><span class="htmltochead" onclick="showLevel('htmltoc');"><span class="htmltocplus" id="htmltocplus">+</span><span class="htmltocminus" id="htmltocminus">&#8722;</span></span>&#160;Contents</h2>
<div class="htmltocitem" id="htmltoc">
<div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#purpose">1&#160;&#160;<b>Purpose</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#specification">2&#160;&#160;<b>Specification</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#description">3&#160;&#160;<b>Description</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#references">4&#160;&#160;<b>References</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#parameters">5&#160;&#160;<b>Parameters</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#errors">6&#160;&#160;<b>Error Indicators and Warnings</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#accuracy">7&#160;&#160;<b>Accuracy</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#fcomments">8&#160;&#160;<b>Further Comments</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#example">9&#160;&#160;<b>Example</b></a>
</div>
</div>
</div><h2 class="standard"><a class="sec" name="purpose" id="purpose"/>1&#160;&#160;Purpose</h2>
<div class="paramtext">F08QXF (ZTREVC) computes selected left and/or right eigenvectors of a complex upper triangular matrix.</div><h2 class="standard"><a class="sec" name="specification" id="specification"/>2&#160;&#160;Specification</h2><table class="fspec"><tr><td class="tdfspec1">
<div class="left-tablediv"><table class="fspec1"><tbody>
<tr>
<td class="tdfspec1" valign="top" align="left">SUBROUTINE&#160;F08QXF&#160;(</td>
<td class="tdfspec2" valign="top" align="left"><a class="arg" href="#JOB">JOB</a>, <a class="arg" href="#HOWMNY">HOWMNY</a>, <a class="arg" href="#SELECT">SELECT</a>, <a class="arg" href="#N">N</a>, <a class="arg" href="#T">T</a>, <a class="arg" href="#LDT">LDT</a>, <a class="arg" href="#VL">VL</a>, <a class="arg" href="#LDVL">LDVL</a>, <a class="arg" href="#VR">VR</a>, <a class="arg" href="#LDVR">LDVR</a>, <a class="arg" href="#MM">MM</a>, <a class="arg" href="#M">M</a>, <a class="arg" href="#WORK">WORK</a>, <a class="arg" href="#RWORK">RWORK</a>, <a class="arg" href="#INFO">INFO</a>)</td>
</tr>
</tbody>
</table></div>
<div class="left-tablediv"><table class="fspec3"><tbody>
<tr>
<td class="tdfspec1" valign="top" align="left">INTEGER&#160;</td>
<td class="tdfspec2" valign="top" align="left">N, LDT, LDVL, LDVR, MM, M, INFO</td>
</tr>
<tr>
<td class="tdfspec1" valign="top" align="left">REAL&#160;(KIND=nag_wp)&#160;</td>
<td class="tdfspec2" valign="top" align="left">RWORK(N)</td>
</tr>
<tr>
<td class="tdfspec1" valign="top" align="left">COMPLEX&#160;(KIND=nag_wp)&#160;</td>
<td class="tdfspec2" valign="top" align="left">T(LDT,*), VL(LDVL,*), VR(LDVR,*), WORK(2*N)</td>
</tr>
<tr>
<td class="tdfspec1" valign="top" align="left">LOGICAL&#160;</td>
<td class="tdfspec2" valign="top" align="left">SELECT(*)</td>
</tr><tr>
<td class="tdfspec1" valign="top" align="left">CHARACTER(1)&#160;</td>
<td class="tdfspec2" valign="top" align="left">JOB, HOWMNY</td></tr></tbody>
</table></div>
</td></tr></table>
<div class="paramtext">The routine may be called by its 
    LAPACK
    name <span class="bitalic">ztrevc</span>.</div><h2 class="standard"><a class="sec" name="description" id="description"/>3&#160;&#160;Description</h2>
<div class="paramtext">F08QXF (ZTREVC) computes left and/or right eigenvectors of a complex upper triangular matrix <m:math><m:mi>T</m:mi></m:math>.  Such a matrix arises from the Schur factorization of a complex general matrix, as computed by <a class="rout" href="../F08/f08psf.xml">F08PSF (ZHSEQR)</a>, for example.</div><div class="paramtext">The right eigenvector <m:math><m:mi>x</m:mi></m:math>, and the left eigenvector <m:math><m:mi>y</m:mi></m:math>, corresponding to an eigenvalue <m:math><m:mi>&#955;</m:mi></m:math>, are defined by:

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mi>T</m:mi><m:mi>x</m:mi>
 <m:mo>=</m:mo>
 <m:mi>&#955;</m:mi><m:mi>x</m:mi>
 <m:mtext>&#8195; and &#8195;</m:mtext>
 <m:msup><m:mi>y</m:mi><m:mi mathvariant="normal">H</m:mi></m:msup><m:mi>T</m:mi>
 <m:mo>=</m:mo>
 <m:mi>&#955;</m:mi><m:msup><m:mi>y</m:mi><m:mi mathvariant="normal">H</m:mi></m:msup>
 <m:mfenced separators="">
  <m:mtext>or &#8203;</m:mtext>
  <m:msup><m:mi>T</m:mi><m:mi mathvariant="normal">H</m:mi></m:msup><m:mi>y</m:mi>
  <m:mo>=</m:mo>
  <m:mover><m:mi>&#955;</m:mi><m:mo>-</m:mo></m:mover><m:mi>y</m:mi>
 </m:mfenced>
 <m:mtext>.</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div>

The routine can compute the eigenvectors corresponding to selected eigenvalues, or it can compute all the eigenvectors.  In the latter case the eigenvectors may optionally be pre-multiplied by an input matrix <m:math><m:mi>Q</m:mi></m:math>.  Normally <m:math><m:mi>Q</m:mi></m:math>&#160;is a unitary matrix from the Schur factorization of a matrix <m:math><m:mi>A</m:mi></m:math>&#160;as <m:math><m:mi>A</m:mi><m:mo>=</m:mo><m:mi>Q</m:mi><m:mi>T</m:mi><m:msup><m:mi>Q</m:mi><m:mi mathvariant="normal">H</m:mi></m:msup></m:math>; if <m:math><m:mi>x</m:mi></m:math>&#160;is a (left or right) eigenvector of <m:math><m:mi>T</m:mi></m:math>, then <m:math><m:mi>Q</m:mi><m:mi>x</m:mi></m:math>&#160;is an eigenvector of <m:math><m:mi>A</m:mi></m:math>.</div><div class="paramtext">The eigenvectors are computed by forward or backward substitution.  They are scaled so that 
<m:math>
 <m:mrow><m:mi>max</m:mi><m:mspace width="0.25em"/><m:mo>&#8289;</m:mo><m:mrow>
   <m:mfenced open="|" close="|" separators="">
    <m:mrow><m:mi>Re</m:mi><m:mfenced separators=""><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:mfenced></m:mrow>
   </m:mfenced>
   <m:mo>+</m:mo><m:mfenced open="|" close="|" separators="">
    <m:mrow><m:mi>Im</m:mi><m:mo>&#8289;</m:mo><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:mrow>
   </m:mfenced>
  </m:mrow></m:mrow><m:mo>=</m:mo><m:mn>1</m:mn></m:math>.</div><h2 class="standard"><a class="sec" name="references" id="references"/>4&#160;&#160;References</h2><div class="paramtext"><a name="ref105" id="ref105"/>Golub G H and Van Loan C F (1996)  <i>Matrix Computations</i> (3rd Edition) Johns Hopkins University Press, Baltimore </div><h2 class="standard"><a class="sec" name="parameters" id="parameters"/>5&#160;&#160;Parameters</h2>
<dl><dt class="paramhead"><a name="JOB" id="JOB"/>1: &#160;&#160;&#8194; JOB &#8211; CHARACTER(1)<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: indicates whether left and/or right eigenvectors are to be computed.

<dl>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math></dt>
<dd>Only right eigenvectors are computed.</dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math></dt>
<dd>Only left eigenvectors are computed.</dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'B'</m:mtext></m:math></dt>
<dd>Both left and right eigenvectors are computed.</dd></dl>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>, <m:math><m:mtext>'L'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>.
</div>
</dd><dt class="paramhead"><a name="HOWMNY" id="HOWMNY"/>2: &#160;&#160;&#8194; HOWMNY &#8211; CHARACTER(1)<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: indicates how many eigenvectors are to be computed.

<dl>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math></dt>
<dd>All eigenvectors (as specified by <a class="arg" href="#JOB">JOB</a>) are computed.</dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'B'</m:mtext></m:math>&#160;or <m:math><m:mtext>'O'</m:mtext></m:math></dt>
<dd>All eigenvectors (as specified by <a class="arg" href="#JOB">JOB</a>) are computed and then pre-multiplied by the matrix <m:math><m:mi>Q</m:mi></m:math>&#160;(which is overwritten).</dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'S'</m:mtext></m:math></dt>
<dd>Selected eigenvectors (as specified by <a class="arg" href="#JOB">JOB</a> and <a class="arg" href="#SELECT">SELECT</a>) are computed.</dd></dl>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>, <m:math><m:mtext>'B'</m:mtext></m:math>, <m:math><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'S'</m:mtext></m:math>.
</div>
</dd><dt class="paramhead"><a name="SELECT" id="SELECT"/>3: &#160;&#160;&#8194; SELECT(<m:math><m:mo>*</m:mo></m:math>) &#8211; LOGICAL&#160;array<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><b>Note:</b> the dimension of the array <a class="arg" href="#SELECT">SELECT</a>
must be at least
<m:math><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:mfenced></m:mrow></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'S'</m:mtext></m:math>, and at least <m:math><m:mn>1</m:mn></m:math>&#160;otherwise.</div>
<div class="paramtext"><i>On entry</i>: specifies which eigenvectors are to be computed if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'S'</m:mtext></m:math>. To obtain the eigenvector corresponding to the eigenvalue <m:math><m:msub><m:mi>&#955;</m:mi><m:mi>j</m:mi></m:msub></m:math>, <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#SELECT"><m:mi mathcolor="#EE0000" mathvariant="bold">SELECT</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow></m:math>&#160;must be set .TRUE..
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>, <m:math><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#SELECT">SELECT</a> is not referenced.</div>
</div>
</dd><dt class="paramhead"><a name="N" id="N"/>4: &#160;&#160;&#8194; N &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: 

<m:math><m:mi>n</m:mi></m:math>, the order of the matrix <m:math><m:mi>T</m:mi></m:math>.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>0</m:mn></m:math>.
</div>
</dd><dt class="paramhead"><a name="T" id="T"/>5: &#160;&#160;&#8194; T(<a class="arg" href="#LDT">LDT</a>,<m:math><m:mo>*</m:mo></m:math>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Input/Output</span></dt><dd>
<div class="paramtext"><b>Note:</b> the second dimension of the array <a class="arg" href="#T">T</a>
must be at least
<m:math><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:mfenced></m:mrow></m:math>.</div>
<div class="paramtext"><i>On entry</i>: the <m:math><m:mi>n</m:mi></m:math>&#160;by <m:math><m:mi>n</m:mi></m:math>&#160;upper triangular matrix <m:math><m:mi>T</m:mi></m:math>, as returned by <a class="rout" href="../F08/f08psf.xml">F08PSF (ZHSEQR)</a>.</div>
<div class="paramtext"><i>On exit</i>: is used as internal workspace prior to being restored and hence is unchanged.</div>
</dd><dt class="paramhead"><a name="LDT" id="LDT"/>6: &#160;&#160;&#8194; LDT &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: the first dimension of the array <a class="arg" href="#T">T</a> as declared in the (sub)program from which F08QXF (ZTREVC) is called.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDT"><m:mi mathcolor="#EE0000" mathvariant="bold">LDT</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:mfenced></m:mrow></m:math>.
</div>
</dd><dt class="paramhead"><a name="VL" id="VL"/>7: &#160;&#160;&#8194; VL(<a class="arg" href="#LDVL">LDVL</a>,<m:math><m:mo>*</m:mo></m:math>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Input/Output</span></dt><dd>
 <div class="paramtext"><b>Note:</b> the second dimension of the array <a class="arg" href="#VL">VL</a>
must be at least
<m:math><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#MM"><m:mi mathcolor="#EE0000" mathvariant="bold">MM</m:mi></m:maction></m:mfenced></m:mrow></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>&#160;and at least <m:math><m:mn>1</m:mn></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>.</div>
<div class="paramtext"><i>On entry</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>&#160;and <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#VL">VL</a> must contain an <m:math><m:mi>n</m:mi></m:math>&#160;by <m:math><m:mi>n</m:mi></m:math>&#160;matrix <m:math><m:mi>Q</m:mi></m:math>&#160;(usually the matrix of Schur vectors returned by <a class="rout" href="../F08/f08psf.xml">F08PSF (ZHSEQR)</a>).
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>&#160;or <m:math><m:mtext>'S'</m:mtext></m:math>, <a class="arg" href="#VL">VL</a> need not be set.</div>
</div>
<div class="paramtext"><i>On exit</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#VL">VL</a> contains the computed left eigenvectors (as specified by <a class="arg" href="#HOWMNY">HOWMNY</a> and <a class="arg" href="#SELECT">SELECT</a>). The eigenvectors are stored consecutively in the  columns  of the array, in the same order as their eigenvalues.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>, <a class="arg" href="#VL">VL</a> is not referenced.</div>
</div>
</dd><dt class="paramhead"><a name="LDVL" id="LDVL"/>8: &#160;&#160;&#8194; LDVL &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: the first dimension of the array <a class="arg" href="#VL">VL</a> as declared in the (sub)program from which F08QXF (ZTREVC) is called.</div><div class="paramtext"><i>Constraints</i>:
   <div class="paramtext"/><ul class="listcons">
<li class="listcons">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDVL"><m:mi mathcolor="#EE0000" mathvariant="bold">LDVL</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:mfenced></m:mrow></m:math>;</li>
<li class="listcons">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>, <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDVL"><m:mi mathcolor="#EE0000" mathvariant="bold">LDVL</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>1</m:mn></m:math>.</li>
</ul></div>
</dd><dt class="paramhead"><a name="VR" id="VR"/>9: &#160;&#160;&#8194; VR(<a class="arg" href="#LDVR">LDVR</a>,<m:math><m:mo>*</m:mo></m:math>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Input/Output</span></dt><dd>
 <div class="paramtext"><b>Note:</b> the second dimension of the array <a class="arg" href="#VR">VR</a>
must be at least
<m:math><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#MM"><m:mi mathcolor="#EE0000" mathvariant="bold">MM</m:mi></m:maction></m:mfenced></m:mrow></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>&#160;and at least <m:math><m:mn>1</m:mn></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>.</div>
<div class="paramtext"><i>On entry</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>&#160;and <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#VR">VR</a> must contain an <m:math><m:mi>n</m:mi></m:math>&#160;by <m:math><m:mi>n</m:mi></m:math>&#160;matrix <m:math><m:mi>Q</m:mi></m:math>&#160;(usually the matrix of Schur vectors returned by <a class="rout" href="../F08/f08psf.xml">F08PSF (ZHSEQR)</a>).
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>&#160;or <m:math><m:mtext>'S'</m:mtext></m:math>, <a class="arg" href="#VR">VR</a> need not be set.</div>
</div>
<div class="paramtext"><i>On exit</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#VR">VR</a> contains the computed right eigenvectors (as specified by <a class="arg" href="#HOWMNY">HOWMNY</a> and <a class="arg" href="#SELECT">SELECT</a>). The eigenvectors are stored consecutively in the  columns  of the array, in the same order as their eigenvalues.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>, <a class="arg" href="#VR">VR</a> is not referenced.</div>
</div>
</dd><dt class="paramhead"><a name="LDVR" id="LDVR"/>10: &#8194; LDVR &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: the first dimension of the array <a class="arg" href="#VR">VR</a> as declared in the (sub)program from which F08QXF (ZTREVC) is called.</div><div class="paramtext"><i>Constraints</i>:
   <div class="paramtext"/><ul class="listcons">
<li class="listcons">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'R'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDVR"><m:mi mathcolor="#EE0000" mathvariant="bold">LDVR</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mrow><m:mi>max</m:mi><m:mspace width="0.125em"/><m:mfenced separators=""><m:mn>1</m:mn><m:mo>,</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:mfenced></m:mrow></m:math>;</li>
<li class="listcons">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOB"><m:mi mathcolor="#EE0000" mathvariant="bold">JOB</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>, <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDVR"><m:mi mathcolor="#EE0000" mathvariant="bold">LDVR</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>1</m:mn></m:math>.</li>
</ul></div>
</dd><dt class="paramhead"><a name="MM" id="MM"/>11: &#8194; MM &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: the number of  columns  in the arrays <a class="arg" href="#VL">VL</a> and/or <a class="arg" href="#VR">VR</a>. The precise number of  columns required, <m:math><m:mi mathvariant="italic">m</m:mi></m:math>, is <m:math><m:mi>n</m:mi></m:math>&#160;if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>, <m:math><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>; if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'S'</m:mtext></m:math>, <m:math><m:mi mathvariant="italic">m</m:mi></m:math>&#160;is the number of selected eigenvectors (see <a class="arg" href="#SELECT">SELECT</a>), in which case <m:math><m:mn>0</m:mn><m:mo>&#8804;</m:mo><m:mi mathvariant="italic">m</m:mi><m:mo>&#8804;</m:mo><m:mi>n</m:mi></m:math>.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#MM"><m:mi mathcolor="#EE0000" mathvariant="bold">MM</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mi mathvariant="italic">m</m:mi></m:math>.
</div>
</dd><dt class="paramhead"><a name="M" id="M"/>12: &#8194; M &#8211; INTEGER<span class="pclass">Output</span></dt><dd>
<div class="paramtext"><i>On exit</i>: <m:math><m:mi mathvariant="italic">m</m:mi></m:math>, the number of selected eigenvectors. If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#HOWMNY"><m:mi mathcolor="#EE0000" mathvariant="bold">HOWMNY</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'A'</m:mtext></m:math>, <m:math><m:mtext>'O'</m:mtext></m:math>&#160;or <m:math><m:mtext>'B'</m:mtext></m:math>, <a class="arg" href="#M">M</a> is set to <m:math><m:mi>n</m:mi></m:math>.</div>
</dd><dt class="paramhead"><a name="WORK" id="WORK"/>13: &#8194; WORK(<m:math><m:mn>2</m:mn><m:mo>&#215;</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:math>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Workspace</span></dt><dt class="paramhead"><a name="RWORK" id="RWORK"/>14: &#8194; RWORK(<a class="arg" href="#N">N</a>) &#8211; REAL&#160;(KIND=nag_wp)&#160;array<span class="pclass">Workspace</span></dt><dt class="paramhead"><a name="INFO" id="INFO"/>15: &#8194; INFO &#8211; INTEGER<span class="pclass">Output</span></dt><dd><div class="paramtext"><i>On exit</i>: <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#INFO"><m:mi mathcolor="#EE0000" mathvariant="bold">INFO</m:mi></m:maction><m:mo>=</m:mo><m:mn>0</m:mn></m:math>&#160;unless the routine detects an error (see <a class="sec" href="#errors">Section 6</a>).</div></dd></dl><h2 class="standard"><a class="sec" name="errors" id="errors"/>6&#160;&#160;Error Indicators and Warnings</h2>
<div class="paramtext">Errors or warnings detected by the routine:</div>
<dl class="ifail">
<dt class="errorhead"><a name="INlt0" id="INlt0"/><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#INFO"><m:mi mathcolor="#EE0000" mathvariant="bold">INFO</m:mi></m:maction><m:mo>&lt;</m:mo><m:mn>0</m:mn></m:math></dt>
<dd><div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#INFO"><m:mi mathcolor="#EE0000" mathvariant="bold">INFO</m:mi></m:maction><m:mo>=</m:mo><m:mo>-</m:mo><m:mi>i</m:mi></m:math>, argument <m:math><m:mi>i</m:mi></m:math>&#160;had an illegal value. An explanatory message is output, and execution of the program is terminated.</div></dd>
</dl><h2 class="standard"><a class="sec" name="accuracy" id="accuracy"/>7&#160;&#160;Accuracy</h2>
<div class="paramtext">If <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:math>&#160;is an exact right eigenvector, and <m:math><m:msub><m:mover><m:mi>x</m:mi><m:mo>~</m:mo></m:mover><m:mi>i</m:mi></m:msub></m:math>&#160;is the corresponding computed eigenvector, then the angle <m:math><m:mi>&#952;</m:mi><m:mfenced separators=""><m:msub><m:mover><m:mi>x</m:mi><m:mo>~</m:mo></m:mover><m:mi>i</m:mi></m:msub><m:mo>,</m:mo><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:mfenced></m:math>&#160;between them is bounded as follows:

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mi>&#952;</m:mi>
 <m:mfenced separators=""><m:msub><m:mover><m:mi>x</m:mi><m:mo>~</m:mo></m:mover><m:mi>i</m:mi></m:msub><m:mo>,</m:mo><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:mfenced>
 <m:mo>&#8804;</m:mo>
 <m:mfrac>
  <m:mrow>
   <m:mi>c</m:mi>
   <m:mfenced separators=""><m:mi>n</m:mi></m:mfenced>
   <m:mi>&#949;</m:mi>
   <m:msub><m:mfenced open="&#8214;" close="&#8214;" separators=""><m:mi>T</m:mi></m:mfenced><m:mn>2</m:mn></m:msub>
  </m:mrow>
  <m:msub><m:mi mathvariant="italic">sep</m:mi><m:mi>i</m:mi></m:msub>
 </m:mfrac>
</m:math></td><td class="formula2"/></tr></table></div>

where <m:math><m:msub><m:mi mathvariant="italic">sep</m:mi><m:mi>i</m:mi></m:msub></m:math>&#160;is the reciprocal condition number of <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:math>.</div><div class="paramtext">The condition number <m:math><m:msub><m:mi mathvariant="italic">sep</m:mi><m:mi>i</m:mi></m:msub></m:math>&#160;may be computed by calling <a class="rout" href="../F08/f08qyf.xml">F08QYF (ZTRSNA)</a>.</div><h2 class="standard"><a class="sec" name="fcomments" id="fcomments"/>8&#160;&#160;Further Comments</h2>
<div class="paramtext">The real analogue of this routine is <a class="rout" href="../F08/f08qkf.xml">F08QKF (DTREVC)</a>.</div><h2 class="standard"><a class="sec" name="example" id="example"/>9&#160;&#160;Example</h2>
<div class="paramtext">See <a class="sec" href="../F08/f08nvf.xml#example">Section 9</a> in F08NVF (ZGEBAL).</div>
<hr/><div><a class="rout" href="../../pdf/F08/f08qxf.pdf">F08QXF (ZTREVC) (PDF version)</a></div><div><a class="chap" href="f08conts.xml">F08 Chapter Contents</a></div><div><a class="chapint" href="f08intro.xml">F08 Chapter Introduction</a></div>
<div><a class="htmltoc" href="../FRONTMATTER/manconts.xml">NAG Library Manual</a></div>
<div><hr/><a class="genint" href="../FRONTMATTER/copyright.xml">&#169; The Numerical Algorithms Group Ltd, Oxford, UK. 2011</a></div></body></html>