<?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>F08WNF (ZGGEV) : 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/f08wnf.pdf">F08WNF (ZGGEV) (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/>F08WNF (ZGGEV)</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="htmltoc" onclick="showLevel('tocexample');"><span class="htmltocplus" id="tocexampleplus">+</span><span class="htmltocminus" id="tocexampleminus">&#8722;</span></span>
<a class="htmltoc" href="#example">9&#160;&#160;<b>Example</b></a>
<div class="htmltocitem" id="tocexample">
<div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examtext">9.1&#160;&#160;<b>Program Text</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examdata">9.2&#160;&#160;<b>Program Data</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examresults">9.3&#160;&#160;<b>Program Results</b></a>
</div>
</div>
</div>
</div>
</div><h2 class="standard"><a class="sec" name="purpose" id="purpose"/>1&#160;&#160;Purpose</h2>
<div class="paramtext">F08WNF (ZGGEV) computes for a pair of <m:math><m:mi>n</m:mi></m:math>&#160;by <m:math><m:mi>n</m:mi></m:math>&#160;complex nonsymmetric matrices <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>&#160;the generalized eigenvalues and, optionally, the left and/or right generalized eigenvectors using the <m:math><m:mi>Q</m:mi><m:mi>Z</m:mi></m:math>&#160;algorithm.</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;F08WNF&#160;(</td>
<td class="tdfspec2" valign="top" align="left"><a class="arg" href="#JOBVL">JOBVL</a>, <a class="arg" href="#JOBVR">JOBVR</a>, <a class="arg" href="#N">N</a>, <a class="arg" href="#A">A</a>, <a class="arg" href="#LDA">LDA</a>, <a class="arg" href="#B">B</a>, <a class="arg" href="#LDB">LDB</a>, <a class="arg" href="#ALPHA">ALPHA</a>, <a class="arg" href="#BETA">BETA</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="#WORK">WORK</a>, <a class="arg" href="#LWORK">LWORK</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, LDA, LDB, LDVL, LDVR, LWORK, 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(max(1,8*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">A(LDA,*), B(LDB,*), ALPHA(N), BETA(N), VL(LDVL,*), VR(LDVR,*), WORK(max(1,LWORK))</td>
</tr><tr>
<td class="tdfspec1" valign="top" align="left">CHARACTER(1)&#160;</td>
<td class="tdfspec2" valign="top" align="left">JOBVL, JOBVR</td></tr></tbody>
</table></div>
</td></tr></table>
<div class="paramtext">The routine may be called by its 
    LAPACK
    name <span class="bitalic">zggev</span>.</div><h2 class="standard"><a class="sec" name="description" id="description"/>3&#160;&#160;Description</h2>
<div class="paramtext">A generalized eigenvalue for a pair of matrices <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>&#160;is a scalar <m:math><m:mi>&#955;</m:mi></m:math>&#160;or a ratio <m:math><m:mi>&#945;</m:mi><m:mo>/</m:mo><m:mi>&#946;</m:mi><m:mo>=</m:mo><m:mo>&#955;</m:mo></m:math>, such that <m:math><m:mi>A</m:mi><m:mo>-</m:mo><m:mo>&#955;</m:mo><m:mi>B</m:mi></m:math>&#160;is singular. It is usually represented as the pair <m:math><m:mfenced separators=""><m:mi>&#945;</m:mi><m:mo>,</m:mo><m:mi>&#946;</m:mi></m:mfenced></m:math>, as there is a reasonable interpretation for <m:math><m:mi>&#946;</m:mi><m:mo>=</m:mo><m:mn>0</m:mn></m:math>, and even for both being zero.</div><div class="paramtext">The right generalized eigenvector <m:math><m:msub><m:mi>v</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;corresponding to the generalized eigenvalue <m:math><m:msub><m:mo>&#955;</m:mo><m:mi>j</m:mi></m:msub></m:math>&#160;of <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>&#160;satisfies

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mi>A</m:mi>
 <m:msub><m:mi>v</m:mi><m:mi>j</m:mi></m:msub>
 <m:mo>=</m:mo>
 <m:msub><m:mo>&#955;</m:mo><m:mi>j</m:mi></m:msub>
 <m:mi>B</m:mi>
 <m:msub><m:mi>v</m:mi><m:mi>j</m:mi></m:msub>
 <m:mtext>.</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div></div><div class="paramtext">The left generalized eigenvector <m:math><m:msub><m:mi>u</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;corresponding to the generalized eigenvalues <m:math><m:msub><m:mo>&#955;</m:mo><m:mi>j</m:mi></m:msub></m:math>&#160;of <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>&#160;satisfies

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:msubsup><m:mi>u</m:mi><m:mi>j</m:mi><m:mi mathvariant="normal">H</m:mi></m:msubsup>
 <m:mi>A</m:mi>
 <m:mo>=</m:mo>
 <m:msub><m:mo>&#955;</m:mo><m:mi>j</m:mi></m:msub>
 <m:msubsup><m:mi>u</m:mi><m:mi>j</m:mi><m:mi mathvariant="normal">H</m:mi></m:msubsup>
 <m:mi>B</m:mi>
 <m:mtext>,</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div>

where <m:math><m:msubsup><m:mi>u</m:mi><m:mi>j</m:mi><m:mi mathvariant="normal">H</m:mi></m:msubsup></m:math>&#160;is the conjugate-transpose of <m:math><m:msub><m:mi>u</m:mi><m:mi>j</m:mi></m:msub></m:math>.</div><div class="paramtext">All the eigenvalues and, if required, all the eigenvectors of the complex generalized eigenproblem <m:math><m:mi>A</m:mi><m:mi>x</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>B</m:mi><m:mi>x</m:mi></m:math>, where <m:math><m:mi>A</m:mi></m:math>&#160;and <m:math><m:mi>B</m:mi></m:math>&#160;are complex, square matrices, are determined using the <m:math><m:mi>Q</m:mi><m:mi>Z</m:mi></m:math>&#160;algorithm.  The complex <m:math><m:mi>Q</m:mi><m:mi>Z</m:mi></m:math>&#160;algorithm consists of three stages:
<ol class="listnumber"><li class="listnumber"><m:math><m:mi>A</m:mi></m:math>&#160;is reduced to upper Hessenberg form (with real, non-negative subdiagonal elements) and at the same time <m:math><m:mi>B</m:mi></m:math>&#160;is reduced to upper triangular form.</li><li class="listnumber"><m:math><m:mi>A</m:mi></m:math>&#160;is further reduced to triangular form while the triangular form of <m:math><m:mi>B</m:mi></m:math>&#160;is maintained and the diagonal elements of  <m:math><m:mi>B</m:mi></m:math>&#160;are made real and non-negative. This is the generalized Schur form of the pair <m:math>
 <m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced>
</m:math>.
 <div class="paramtext">This routine does not actually produce the eigenvalues <m:math><m:msub><m:mi>&#955;</m:mi><m:mi>j</m:mi></m:msub></m:math>, but instead returns <m:math><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;and <m:math><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;such that

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:msub><m:mi>&#955;</m:mi><m:mi>j</m:mi></m:msub><m:mo>=</m:mo><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub><m:mo>/</m:mo><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub><m:mtext>, &#8195;</m:mtext><m:mi>j</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mtext>.</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div>

The division by <m:math><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;becomes your responsibility, since <m:math><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;may be zero, indicating an infinite eigenvalue.</div></li><li class="listnumber">If the eigenvectors are required they are obtained from the triangular matrices and then transferred back into the original coordinate system.</li></ol>
</div><h2 class="standard"><a class="sec" name="references" id="references"/>4&#160;&#160;References</h2><div class="paramtext"><a name="ref252" id="ref252"/>Anderson E, Bai Z, Bischof C, Blackford S, Demmel J, Dongarra J J, Du Croz J J, Greenbaum A, Hammarling S, McKenney A and Sorensen D (1999)  <i>LAPACK Users' Guide</i> (3rd Edition) SIAM, Philadelphia <a class="url" href="http://www.netlib.org/lapack/lug">http://www.netlib.org/lapack/lug</a></div>
<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>
<div class="paramtext"><a name="ref109" id="ref109"/>Wilkinson J H (1979)  Kronecker's canonical form and the <m:math><m:mrow><m:mi>Q</m:mi><m:mi>Z</m:mi></m:mrow></m:math>&#160;algorithm <i>Linear Algebra Appl.</i> <b>28</b> 285&#8211;303 </div><h2 class="standard"><a class="sec" name="parameters" id="parameters"/>5&#160;&#160;Parameters</h2>
<dl><dt class="paramhead"><a name="JOBVL" id="JOBVL"/>1: &#160;&#160;&#8194; JOBVL &#8211; CHARACTER(1)<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</m:mtext></m:math>, do not compute the left generalized eigenvectors.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, compute the left generalized eigenvectors.</div>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</m:mtext></m:math>&#160;or <m:math><m:mtext>'V'</m:mtext></m:math>.
</div>
</dd><dt class="paramhead"><a name="JOBVR" id="JOBVR"/>2: &#160;&#160;&#8194; JOBVR &#8211; CHARACTER(1)<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</m:mtext></m:math>, do not compute the right generalized eigenvectors.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, compute the right generalized eigenvectors.</div>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</m:mtext></m:math>&#160;or <m:math><m:mtext>'V'</m:mtext></m:math>.
</div>
</dd><dt class="paramhead"><a name="N" id="N"/>3: &#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 matrices 
<m:math><m:mi>A</m:mi></m:math>&#160;and <m:math><m:mi>B</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="A" id="A"/>4: &#160;&#160;&#8194; A(<a class="arg" href="#LDA">LDA</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="#A">A</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 matrix <m:math><m:mi>A</m:mi></m:math>&#160;in the pair <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>.</div><div class="paramtext"><i>On exit</i>: <a class="arg" href="#A">A</a> has been overwritten.</div></dd><dt class="paramhead"><a name="LDA" id="LDA"/>5: &#160;&#160;&#8194; LDA &#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="#A">A</a> as declared in the (sub)program from which F08WNF (ZGGEV) is called.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDA"><m:mi mathcolor="#EE0000" mathvariant="bold">LDA</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="B" id="B"/>6: &#160;&#160;&#8194; B(<a class="arg" href="#LDB">LDB</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="#B">B</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 matrix <m:math><m:mi>B</m:mi></m:math>&#160;in the pair <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>.</div>
<div class="paramtext"><i>On exit</i>: <a class="arg" href="#B">B</a> has been overwritten.
</div></dd><dt class="paramhead"><a name="LDB" id="LDB"/>7: &#160;&#160;&#8194; LDB &#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="#B">B</a> as declared in the (sub)program from which F08WNF (ZGGEV) is called.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LDB"><m:mi mathcolor="#EE0000" mathvariant="bold">LDB</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="ALPHA" id="ALPHA"/>8: &#160;&#160;&#8194; ALPHA(<a class="arg" href="#N">N</a>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Output</span></dt><dd><div class="paramtext"><i>On exit</i>: see the description of <a class="arg" href="#BETA">BETA</a>.</div>
</dd><dt class="paramhead"><a name="BETA" id="BETA"/>9: &#160;&#160;&#8194; BETA(<a class="arg" href="#N">N</a>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Output</span></dt><dd><div class="paramtext"><i>On exit</i>: <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#ALPHA"><m:mi mathcolor="#EE0000" mathvariant="bold">ALPHA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi mathvariant="italic">j</m:mi></m:mfenced></m:mrow><m:mo>/</m:mo><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#BETA"><m:mi mathcolor="#EE0000" mathvariant="bold">BETA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi mathvariant="italic">j</m:mi></m:mfenced></m:mrow></m:math>, for <m:math><m:mi mathvariant="italic">j</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><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:math>, will be the generalized eigenvalues.
<div class="paramtext"><b>Note:</b>&#160; the quotients <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#ALPHA"><m:mi mathcolor="#EE0000" mathvariant="bold">ALPHA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow><m:mo>/</m:mo><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#BETA"><m:mi mathcolor="#EE0000" mathvariant="bold">BETA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow></m:math>&#160;may easily overflow or underflow, and <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#BETA"><m:mi mathcolor="#EE0000" mathvariant="bold">BETA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow></m:math>&#160;may even be zero. Thus, you should avoid naively computing the ratio <m:math><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub><m:mo>/</m:mo><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>. However, <m:math><m:mrow><m:mi>max</m:mi><m:mfenced open="|" close="|" separators=""><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub></m:mfenced></m:mrow></m:math>&#160;will always be less than and usually comparable with <m:math><m:msub><m:mfenced open="&#8214;" close="&#8214;" separators=""><m:maction actiontype="link" dsi:type="simple" dsi:href="#A"><m:mi mathcolor="#EE0000" mathvariant="bold">A</m:mi></m:maction></m:mfenced><m:mn>2</m:mn></m:msub></m:math>&#160;in magnitude, and <m:math><m:mrow><m:mi>max</m:mi><m:mfenced open="|" close="|" separators=""><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:mfenced></m:mrow></m:math>&#160;will always be less than and usually comparable with <m:math><m:msub><m:mfenced open="&#8214;" close="&#8214;" separators=""><m:maction actiontype="link" dsi:type="simple" dsi:href="#B"><m:mi mathcolor="#EE0000" mathvariant="bold">B</m:mi></m:maction></m:mfenced><m:mn>2</m:mn></m:msub></m:math>.</div>
</div>
</dd><dt class="paramhead"><a name="VL" id="VL"/>10: &#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">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="#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="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, and at least <m:math><m:mn>1</m:mn></m:math>&#160;otherwise.</div>
<div class="paramtext"><i>On exit</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, the left generalized eigenvectors <m:math><m:msub><m:mi>u</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;are stored one after another in the columns of <a class="arg" href="#VL">VL</a>, in the same order as the corresponding eigenvalues. Each eigenvector will be scaled so the largest component will have <m:math><m:mfenced open="|" close="|" separators=""><m:mtext>real part</m:mtext></m:mfenced><m:mo>+</m:mo><m:mfenced open="|" close="|" separators=""><m:mtext>imag. part</m:mtext></m:mfenced><m:mo>=</m:mo><m:mn>1</m:mn></m:math>.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</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"/>11: &#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 F08WNF (ZGGEV) 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="#JOBVL"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVL</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</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">otherwise <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"/>12: &#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">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="#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="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, and at least <m:math><m:mn>1</m:mn></m:math>&#160;otherwise.</div>
<div class="paramtext"><i>On exit</i>: if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</m:mtext></m:math>, the right generalized eigenvectors <m:math><m:msub><m:mi>v</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;are stored one after another in the columns of <a class="arg" href="#VR">VR</a>, in the same order as the corresponding eigenvalues. Each eigenvector will be scaled so the largest component will have <m:math><m:mfenced open="|" close="|" separators=""><m:mtext>real part</m:mtext></m:mfenced><m:mo>+</m:mo><m:mfenced open="|" close="|" separators=""><m:mtext>imag. part</m:mtext></m:mfenced><m:mo>=</m:mo><m:mn>1</m:mn></m:math>.
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'N'</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"/>13: &#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 F08WNF (ZGGEV) 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="#JOBVR"><m:mi mathcolor="#EE0000" mathvariant="bold">JOBVR</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'V'</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">otherwise <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="WORK" id="WORK"/>14: &#8194; WORK(<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="#LWORK"><m:mi mathcolor="#EE0000" mathvariant="bold">LWORK</m:mi></m:maction></m:mfenced></m:mrow></m:math>) &#8211; COMPLEX&#160;(KIND=nag_wp)&#160;array<span class="pclass">Workspace</span></dt><dd><div class="paramtext"><i>On exit</i>: 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:maction actiontype="link" dsi:type="simple" dsi:href="#errors"><m:mn mathcolor="#003399" mathvariant="bold">0</m:mn></m:maction></m:math>, the real part of <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#WORK"><m:mi mathcolor="#EE0000" mathvariant="bold">WORK</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mn>1</m:mn></m:mfenced></m:mrow></m:math>&#160;contains the minimum value of <a class="arg" href="#LWORK">LWORK</a> required for optimal performance.</div>
</dd><dt class="paramhead"><a name="LWORK" id="LWORK"/>15: &#8194; LWORK &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: the dimension of the array <a class="arg" href="#WORK">WORK</a> as declared in the (sub)program from which F08WNF (ZGGEV) is called.

<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LWORK"><m:mi mathcolor="#EE0000" mathvariant="bold">LWORK</m:mi></m:maction><m:mo>=</m:mo><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:math>, a workspace query is assumed; the routine only calculates the optimal size of the <a class="arg" href="#WORK">WORK</a> array, returns this value as the first entry of the <a class="arg" href="#WORK">WORK</a> array, and no error message related to <a class="arg" href="#LWORK">LWORK</a> is issued.</div></div>
<div class="paramtext"><i>Suggested value</i>:
  for optimal performance, <a class="arg" href="#LWORK">LWORK</a> must generally be larger than the minimum; increase workspace by, say, <m:math><m:mi mathvariant="italic">nb</m:mi><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>, where <m:math><m:mi mathvariant="italic">nb</m:mi></m:math>&#160;is the optimal <span class="bitalic">block size</span>.

</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#LWORK"><m:mi mathcolor="#EE0000" mathvariant="bold">LWORK</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:mrow><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:mrow></m:mfenced></m:mrow></m:math>.
</div>
</dd><dt class="paramhead"><a name="RWORK" id="RWORK"/>16: &#8194; RWORK(<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:mrow><m:mn>8</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:mrow></m:mfenced></m:mrow></m:math>) &#8211; REAL&#160;(KIND=nag_wp)&#160;array<span class="pclass">Workspace</span></dt><dt class="paramhead"><a name="INFO" id="INFO"/>17: &#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><dl class="ifail">
<dt class="errorhead"><a name="INeq1toN" id="INeq1toN"/><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>1</m:mn><m:mtext>&#160;to&#160;</m:mtext><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction></m:math></dt>
<dd><div class="paramtext">The <m:math><m:mi>Q</m:mi><m:mi>Z</m:mi></m:math>&#160;iteration failed.  No eigenvectors have been calculated, but <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#ALPHA"><m:mi mathcolor="#EE0000" mathvariant="bold">ALPHA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow></m:math>&#160;and <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#BETA"><m:mi mathcolor="#EE0000" mathvariant="bold">BETA</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>j</m:mi></m:mfenced></m:mrow></m:math>&#160;should be correct for <m:math><m:mi>j</m:mi><m:mo>=</m:mo><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>1</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><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:math>.</div></dd>
</dl><dl class="ifail">
<dt class="errorhead"><a name="INeqNp1" id="INeqNp1"/><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:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction><m:mo>+</m:mo><m:mn>1</m:mn></m:mrow></m:math></dt>
<dd><div class="paramtext">Unexpected error returned from <a class="rout" href="../F08/f08xsf.xml">F08XSF (ZHGEQZ)</a>.</div></dd>
</dl><dl class="ifail">
<dt class="errorhead"><a name="INeqNp2" id="INeqNp2"/><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:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction><m:mo>+</m:mo><m:mn>2</m:mn></m:mrow></m:math></dt>
<dd><div class="paramtext">Error returned from <a class="rout" href="../F08/f08yxf.xml">F08YXF (ZTGEVC)</a>.</div></dd>
</dl><h2 class="standard"><a class="sec" name="accuracy" id="accuracy"/>7&#160;&#160;Accuracy</h2>
<div class="paramtext">The computed eigenvalues and eigenvectors are exact for a nearby matrices <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>+</m:mo><m:mi>E</m:mi></m:mfenced></m:math>&#160;and <m:math><m:mfenced separators=""><m:mi>B</m:mi><m:mo>+</m:mo><m:mi>F</m:mi></m:mfenced></m:math>, where

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:msub>
  <m:mfenced open="&#8214;" close="&#8214;" separators=""><m:mfenced separators=""><m:mi>E</m:mi><m:mo>,</m:mo><m:mi>F</m:mi></m:mfenced></m:mfenced>
  <m:mi>F</m:mi>
 </m:msub>
 <m:mo>=</m:mo>
 <m:mrow><m:mi mathvariant="italic">O</m:mi><m:mfenced separators=""><m:mi>&#949;</m:mi></m:mfenced></m:mrow>
 <m:msub>
  <m:mfenced open="&#8214;" close="&#8214;" separators=""><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:mfenced>
  <m:mi>F</m:mi>
 </m:msub>
 <m:mtext>,</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div>

and <m:math><m:mi>&#949;</m:mi></m:math>&#160;is the <span class="bitalic">machine precision</span>.  See Section 4.11 of <a class="ref" href="#ref252">Anderson <span class="italic">et al.</span> (1999)</a> for further details.</div><div class="paramtext"><b>Note:</b>&#160; interpretation of results obtained with the <m:math><m:mi>Q</m:mi><m:mi>Z</m:mi></m:math>&#160;algorithm often requires a clear understanding of the effects of small changes in the original data.  These effects are reviewed in <a class="ref" href="#ref109">Wilkinson (1979)</a>, in relation to the significance of small values of <m:math><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;and <m:math><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>.  It should be noted that if <m:math><m:msub><m:mi>&#945;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;and <m:math><m:msub><m:mi>&#946;</m:mi><m:mi>j</m:mi></m:msub></m:math>&#160;are <b>both</b> small for any <m:math><m:mi>j</m:mi></m:math>, it may be that no reliance can be placed on <b>any</b> of the computed eigenvalues  <m:math><m:msub><m:mi>&#955;</m:mi><m:mi>i</m:mi></m:msub><m:mo>=</m:mo><m:msub><m:mi>&#945;</m:mi><m:mi>i</m:mi></m:msub><m:mo>/</m:mo><m:msub><m:mi>&#946;</m:mi><m:mi>i</m:mi></m:msub></m:math>.  You are recommended to study <a class="ref" href="#ref109">Wilkinson (1979)</a> and, if in difficulty, to seek expert advice on determining the sensitivity of the eigenvalues to perturbations in the data.</div><h2 class="standard"><a class="sec" name="fcomments" id="fcomments"/>8&#160;&#160;Further Comments</h2>
<div class="paramtext">The total number of floating point operations is proportional to <m:math><m:msup><m:mi>n</m:mi><m:mn>3</m:mn></m:msup></m:math>.</div><div class="paramtext">The real analogue of this routine is <a class="rout" href="../F08/f08waf.xml">F08WAF (DGGEV)</a>.</div><h2 class="standard"><a class="sec" name="example" id="example"/>9&#160;&#160;Example</h2>
<div class="paramtext">This example finds all the eigenvalues and right eigenvectors of the matrix pair <m:math><m:mfenced separators=""><m:mi>A</m:mi><m:mo>,</m:mo><m:mi>B</m:mi></m:mfenced></m:math>,
where

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mi>A</m:mi>
 <m:mo>=</m:mo>
 <m:mfenced><m:mtable columnalign="right">
<m:mtr>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>21.10</m:mn></m:mrow><m:mo>-</m:mo><m:mn>22.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>53.50</m:mn><m:mo>-</m:mo><m:mn>50.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>34.50</m:mn></m:mrow><m:mo>+</m:mo><m:mn>127.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>7.50</m:mn><m:mo>+</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>0.50</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.46</m:mn></m:mrow><m:mo>-</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>7.78</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>3.50</m:mn></m:mrow><m:mo>-</m:mo><m:mn>37.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>15.50</m:mn></m:mrow><m:mo>+</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>58.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>10.50</m:mn></m:mrow><m:mo>-</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>1.50</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>4.30</m:mn><m:mo>-</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>5.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>39.70</m:mn><m:mo>-</m:mo><m:mn>17.10</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>68.50</m:mn></m:mrow><m:mo>+</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>12.50</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>7.50</m:mn></m:mrow><m:mo>-</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>3.50</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>5.50</m:mn><m:mo>+</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>4.40</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>14.40</m:mn><m:mo>+</m:mo><m:mn>43.30</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>32.50</m:mn></m:mrow><m:mo>-</m:mo><m:mphantom><m:mn>0</m:mn></m:mphantom><m:mn>46.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>19.00</m:mn></m:mrow><m:mo>-</m:mo><m:mn>32.50</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr>
</m:mtable></m:mfenced>
</m:math></td><td class="formula2"/></tr></table></div>

and

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mi>B</m:mi>
 <m:mo>=</m:mo>
 <m:mfenced><m:mtable columnalign="right">
<m:mtr>
   <m:mtd><m:mn>1.00</m:mn><m:mo>-</m:mo><m:mn>5.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>1.60</m:mn><m:mo>+</m:mo><m:mn>1.20</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>3.00</m:mn></m:mrow><m:mo>+</m:mo><m:mn>0.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>0.00</m:mn><m:mo>-</m:mo><m:mn>1.00</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>0.80</m:mn><m:mo>-</m:mo><m:mn>0.60</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>3.00</m:mn><m:mo>-</m:mo><m:mn>5.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>4.00</m:mn></m:mrow><m:mo>+</m:mo><m:mn>3.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>2.40</m:mn></m:mrow><m:mo>-</m:mo><m:mn>3.20</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>1.00</m:mn><m:mo>+</m:mo><m:mn>0.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>2.40</m:mn><m:mo>+</m:mo><m:mn>1.80</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>4.00</m:mn></m:mrow><m:mo>-</m:mo><m:mn>5.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>0.00</m:mn><m:mo>-</m:mo><m:mn>3.00</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>0.00</m:mn><m:mo>+</m:mo><m:mn>1.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>1.80</m:mn></m:mrow><m:mo>+</m:mo><m:mn>2.40</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>0.00</m:mn><m:mo>-</m:mo><m:mn>4.00</m:mn><m:mi>i</m:mi></m:mtd>
   <m:mtd><m:mn>4.00</m:mn><m:mo>-</m:mo><m:mn>5.00</m:mn><m:mi>i</m:mi></m:mtd>
</m:mtr>
</m:mtable></m:mfenced>
 <m:mtext>.</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div></div><div class="paramtext">Note that the block size (NB) of <m:math><m:mn>64</m:mn></m:math>&#160;assumed in this example is not realistic for such a small problem, but should be suitable for large problems.</div><h3 class="standard"><a class="sec" name="examtext" id="examtext"/>9.1&#160;&#160;Program Text</h3>
<p><a class="verbatimref" href="../../examples/source/f08wnfe.f90">Program Text (f08wnfe.f90)</a></p><h3 class="standard"><a class="sec" name="examdata" id="examdata"/>9.2&#160;&#160;Program Data</h3>
<p><a class="verbatimref" href="../../examples/data/f08wnfe.d">Program&#160;Data (f08wnfe.d)</a></p><h3 class="standard"><a class="sec" name="examresults" id="examresults"/>9.3&#160;&#160;Program Results</h3>
<p><a class="verbatimref" href="../../examples/baseresults/f08wnfe.r">Program Results (f08wnfe.r)</a></p>
<hr/><div><a class="rout" href="../../pdf/F08/f08wnf.pdf">F08WNF (ZGGEV) (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>