<?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>F08TEF (DSPGST) : 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/f08tef.pdf">F08TEF (DSPGST) (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/>F08TEF (DSPGST)</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">F08TEF (DSPGST) reduces a real symmetric-definite generalized eigenproblem <m:math><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>B</m:mi><m:mi>z</m:mi></m:math>, <m:math><m:mi>A</m:mi><m:mi>B</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math>&#160;or <m:math><m:mi>B</m:mi><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math>&#160;to the standard form <m:math><m:mi>C</m:mi><m:mi>y</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>y</m:mi></m:math>, where <m:math><m:mi>A</m:mi></m:math>&#160;is a real symmetric matrix and <m:math><m:mi>B</m:mi></m:math>&#160;has been factorized by <a class="rout" href="../F07/f07gdf.xml">F07GDF (DPPTRF)</a>, using packed storage.</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;F08TEF&#160;(</td>
<td class="tdfspec2" valign="top" align="left"><a class="arg" href="#ITYPE">ITYPE</a>, <a class="arg" href="#UPLO">UPLO</a>, <a class="arg" href="#N">N</a>, <a class="arg" href="#AP">AP</a>, <a class="arg" href="#BP">BP</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">ITYPE, N, 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">AP(*), BP(*)</td>
</tr><tr>
<td class="tdfspec1" valign="top" align="left">CHARACTER(1)&#160;</td>
<td class="tdfspec2" valign="top" align="left">UPLO</td></tr>
</tbody>
</table></div>
</td></tr></table>
<div class="paramtext">The routine may be called by its 
    LAPACK
    name <span class="bitalic">dspgst</span>.</div><h2 class="standard"><a class="sec" name="description" id="description"/>3&#160;&#160;Description</h2>
<div class="paramtext">To reduce the real symmetric-definite generalized eigenproblem <m:math><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>B</m:mi><m:mi>z</m:mi></m:math>, <m:math><m:mi>A</m:mi><m:mi>B</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math>&#160;or <m:math><m:mi>B</m:mi><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math>&#160;to the standard form <m:math><m:mi>C</m:mi><m:mi>y</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>y</m:mi></m:math>&#160;using packed storage, F08TEF (DSPGST) must be preceded by a call to <a class="rout" href="../F07/f07gdf.xml">F07GDF (DPPTRF)</a> which computes the Cholesky factorization of <m:math><m:mi>B</m:mi></m:math>; <m:math><m:mi>B</m:mi></m:math>&#160;must be positive definite.</div><div class="paramtext">The different problem types are specified by the parameter <a class="arg" href="#ITYPE">ITYPE</a>, as indicated in the table below.  The table shows how <m:math><m:mi>C</m:mi></m:math>&#160;is computed by the routine, and also how the eigenvectors <m:math><m:mi>z</m:mi></m:math>&#160;of the original problem can be recovered from the eigenvectors of the standard form.
<div class="tablediv"><table class="standard" border="3" align="center" cellpadding="2">
  
  
  
  
  
  
  <tbody>
   <tr>
    <td class="libdoc" valign="top" align="center"><a class="arg" href="#ITYPE">ITYPE</a></td>
    <td class="libdoc" valign="top" align="center">Problem</td>
    <td class="libdoc" valign="top" align="center"><a class="arg" href="#UPLO">UPLO</a></td>
    <td class="libdoc" valign="top" align="center"><m:math><m:mi>B</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="center"><m:math><m:mi>C</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="center"><m:math><m:mi>z</m:mi></m:math></td>
   </tr><tr>
    <td class="libdoc" valign="top" align="center"><m:math><m:mn>1</m:mn></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>B</m:mi><m:mi>z</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="left">'U'
<br/>
'L'</td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>U</m:mi></m:math>&#160;<br/>
<m:math><m:mi>L</m:mi><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup><m:mi>A</m:mi><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup></m:math>&#160;<br/>
<m:math><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup><m:mi>A</m:mi><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup><m:mi>y</m:mi></m:math>&#160;<br/>
<m:math><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup><m:mi>y</m:mi></m:math></td>
   </tr><tr>
    <td class="libdoc" valign="top" align="center"><m:math><m:mn>2</m:mn></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:mi>A</m:mi><m:mi>B</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="left">'U'
<br/>
'L'</td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>U</m:mi></m:math>&#160;<br/>
<m:math><m:mi>L</m:mi><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:mi>U</m:mi><m:mi>A</m:mi><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math>&#160;<br/>
<m:math><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>A</m:mi><m:mi>L</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup><m:mi>y</m:mi></m:math>&#160;<br/>
<m:math><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup><m:mi>y</m:mi></m:math></td>
   </tr><tr>
    <td class="libdoc" valign="top" align="center"><m:math><m:mn>3</m:mn></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:mi>B</m:mi><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>z</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="left">'U'
<br/>
'L'</td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>U</m:mi></m:math>&#160;<br/>
<m:math><m:mi>L</m:mi><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:mi>U</m:mi><m:mi>A</m:mi><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math>&#160;<br/>
<m:math><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>A</m:mi><m:mi>L</m:mi></m:math></td>
    <td class="libdoc" valign="top" align="left"><m:math><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>y</m:mi></m:math>&#160;<br/>
<m:math><m:mi>L</m:mi><m:mi>y</m:mi></m:math></td>
   </tr>
  </tbody>
 </table></div>
</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="ITYPE" id="ITYPE"/>1: &#160;&#160;&#8194; ITYPE &#8211; INTEGER<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: indicates how the standard form is computed.

<dl>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ITYPE"><m:mi mathcolor="#EE0000" mathvariant="bold">ITYPE</m:mi></m:maction><m:mo>=</m:mo><m:mn>1</m:mn></m:math></dt>
<dd>
<ul class="listind"><li>if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'U'</m:mtext></m:math>, <m:math><m:mi>C</m:mi><m:mo>=</m:mo><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup><m:mi>A</m:mi><m:msup><m:mi>U</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup></m:math>;</li><li>if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>, <m:math><m:mi>C</m:mi><m:mo>=</m:mo><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup><m:mi>A</m:mi><m:msup><m:mi>L</m:mi><m:mrow><m:mo>-</m:mo><m:mi mathvariant="normal">T</m:mi></m:mrow></m:msup></m:math>.</li></ul></dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ITYPE"><m:mi mathcolor="#EE0000" mathvariant="bold">ITYPE</m:mi></m:maction><m:mo>=</m:mo><m:mn>2</m:mn></m:math>&#160;or <m:math><m:mn>3</m:mn></m:math></dt>
<dd>
<ul class="listind"><li>if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'U'</m:mtext></m:math>, <m:math><m:mi>C</m:mi><m:mo>=</m:mo><m:mi>U</m:mi><m:mi>A</m:mi><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math>;</li><li>if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>, <m:math><m:mi>C</m:mi><m:mo>=</m:mo><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>A</m:mi><m:mi>L</m:mi></m:math>.</li></ul></dd></dl>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ITYPE"><m:mi mathcolor="#EE0000" mathvariant="bold">ITYPE</m:mi></m:maction><m:mo>=</m:mo><m:mn>1</m:mn></m:math>, <m:math><m:mn>2</m:mn></m:math>&#160;or <m:math><m:mn>3</m:mn></m:math>.
</div>
</dd><dt class="paramhead"><a name="UPLO" id="UPLO"/>2: &#160;&#160;&#8194; UPLO &#8211; CHARACTER(1)<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><i>On entry</i>: indicates whether the upper or lower triangular part of <m:math><m:mi>A</m:mi></m:math>&#160;is stored and how <m:math><m:mi>B</m:mi></m:math>&#160;has been factorized.

<dl>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'U'</m:mtext></m:math></dt>
<dd>The upper triangular part of <m:math><m:mi>A</m:mi></m:math>&#160;is stored and <m:math><m:mi>B</m:mi><m:mo>=</m:mo><m:msup><m:mi>U</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup><m:mi>U</m:mi></m:math>.</dd>
<dt class="paramval"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math></dt>
<dd>The lower triangular part of <m:math><m:mi>A</m:mi></m:math>&#160;is stored and <m:math><m:mi>B</m:mi><m:mo>=</m:mo><m:mi>L</m:mi><m:msup><m:mi>L</m:mi><m:mi mathvariant="normal">T</m:mi></m:msup></m:math>.</dd></dl>
</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'U'</m:mtext></m:math>&#160;or <m:math><m:mtext>'L'</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="AP" id="AP"/>4: &#160;&#160;&#8194; AP(<m:math><m:mo>*</m:mo></m:math>) &#8211; REAL&#160;(KIND=nag_wp)&#160;array<span class="pclass">Input/Output</span></dt><dd><div class="paramtext"><b>Note:</b> the dimension of the array <a class="arg" href="#AP">AP</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:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction><m:mo>&#215;</m:mo><m:mfenced separators=""><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:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:mrow></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;symmetric
matrix <m:math><m:mi>A</m:mi></m:math>, packed by columns.

<div class="paramtext">More precisely,<ul class="listind"><li class="listind">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'U'</m:mtext></m:math>, the upper triangle of <m:math><m:mi>A</m:mi></m:math>&#160;must be stored with element <m:math><m:msub><m:mi>A</m:mi><m:mrow><m:mi>i</m:mi><m:mi>j</m:mi></m:mrow></m:msub></m:math>&#160;in <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#AP"><m:mi mathcolor="#EE0000" mathvariant="bold">AP</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mrow><m:mi>i</m:mi><m:mo>+</m:mo><m:mi>j</m:mi><m:mfenced separators=""><m:mi>j</m:mi><m:mo>-</m:mo><m:mn>1</m:mn></m:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:mrow></m:mfenced></m:mrow></m:math>&#160;for <m:math><m:mi>i</m:mi><m:mo>&#8804;</m:mo><m:mi>j</m:mi></m:math>;</li><li class="listind">if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#UPLO"><m:mi mathcolor="#EE0000" mathvariant="bold">UPLO</m:mi></m:maction><m:mo>=</m:mo><m:mtext>'L'</m:mtext></m:math>, the lower triangle of <m:math><m:mi>A</m:mi></m:math>&#160;must be stored with element <m:math><m:msub><m:mi>A</m:mi><m:mrow><m:mi>i</m:mi><m:mi>j</m:mi></m:mrow></m:msub></m:math>&#160;in <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#AP"><m:mi mathcolor="#EE0000" mathvariant="bold">AP</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mrow><m:mi>i</m:mi><m:mo>+</m:mo><m:mfenced separators=""><m:mn>2</m:mn><m:mi>n</m:mi><m:mo>-</m:mo><m:mi>j</m:mi></m:mfenced><m:mfenced separators=""><m:mi>j</m:mi><m:mo>-</m:mo><m:mn>1</m:mn></m:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:mrow></m:mfenced></m:mrow></m:math>&#160;for <m:math><m:mi>i</m:mi><m:mo>&#8805;</m:mo><m:mi>j</m:mi></m:math>.</li></ul></div>
</div><div class="paramtext"><i>On exit</i>: the upper or lower triangle of <a class="arg" href="#AP">AP</a> is overwritten by the corresponding upper or lower triangle of <m:math><m:mi>C</m:mi></m:math>&#160;as specified by <a class="arg" href="#ITYPE">ITYPE</a> and <a class="arg" href="#UPLO">UPLO</a>, using the same packed storage format as described above.</div></dd><dt class="paramhead"><a name="BP" id="BP"/>5: &#160;&#160;&#8194; BP(<m:math><m:mo>*</m:mo></m:math>) &#8211; REAL&#160;(KIND=nag_wp)&#160;array<span class="pclass">Input</span></dt><dd>
<div class="paramtext"><b>Note:</b> the dimension of the array <a class="arg" href="#BP">BP</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:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#N"><m:mi mathcolor="#EE0000" mathvariant="bold">N</m:mi></m:maction><m:mo>&#215;</m:mo><m:mfenced separators=""><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:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:mrow></m:mfenced></m:mrow></m:math>.</div>
<div class="paramtext"><i>On entry</i>: the Cholesky factor of <m:math><m:mi>B</m:mi></m:math>&#160;as specified by <a class="arg" href="#UPLO">UPLO</a> and returned by
<a class="rout" href="../F07/f07gdf.xml">F07GDF (DPPTRF)</a>.

</div></dd><dt class="paramhead"><a name="INFO" id="INFO"/>6: &#160;&#160;&#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">Forming the reduced matrix <m:math><m:mi>C</m:mi></m:math>&#160;is a stable procedure.  However it involves implicit multiplication by <m:math><m:msup><m:mi>B</m:mi><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:msup></m:math>&#160;if (<m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ITYPE"><m:mi mathcolor="#EE0000" mathvariant="bold">ITYPE</m:mi></m:maction><m:mo>=</m:mo><m:mn>1</m:mn></m:math>) or <m:math><m:mi>B</m:mi></m:math>&#160;(if <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ITYPE"><m:mi mathcolor="#EE0000" mathvariant="bold">ITYPE</m:mi></m:maction><m:mo>=</m:mo><m:mn>2</m:mn></m:math>&#160;or <m:math><m:mn>3</m:mn></m:math>).  When F08TEF (DSPGST) is used as a step in the computation of eigenvalues and eigenvectors of the original problem, there may be a significant loss of accuracy if <m:math><m:mi>B</m:mi></m:math>&#160;is ill-conditioned with respect to inversion.

See the document for <a class="rout" href="../F08/f08saf.xml">F08SAF (DSYGV)</a> for further details.
</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 approximately <m:math><m:msup><m:mi>n</m:mi><m:mn>3</m:mn></m:msup></m:math>.</div><div class="paramtext">The complex analogue of this routine is <a class="rout" href="../F08/f08tsf.xml">F08TSF (ZHPGST)</a>.</div><h2 class="standard"><a class="sec" name="example" id="example"/>9&#160;&#160;Example</h2>
<div class="paramtext">This example computes all the eigenvalues of <m:math><m:mi>A</m:mi><m:mi>z</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>B</m:mi><m:mi>z</m:mi></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:mn>0.24</m:mn></m:mtd>
   <m:mtd><m:mn>0.39</m:mn></m:mtd>
   <m:mtd><m:mn>0.42</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.16</m:mn></m:mrow></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>0.39</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.11</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.79</m:mn></m:mtd>
   <m:mtd><m:mn>0.63</m:mn></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>0.42</m:mn></m:mtd>
   <m:mtd><m:mn>0.79</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.25</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.48</m:mn></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.16</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.63</m:mn></m:mtd>
   <m:mtd><m:mn>0.48</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.03</m:mn></m:mrow></m:mtd>
</m:mtr>
</m:mtable></m:mfenced>
<m:mtext>&#8195; and &#8195;</m:mtext>
<m:mi>B</m:mi><m:mo>=</m:mo> <m:mfenced><m:mtable columnalign="right">
<m:mtr>
   <m:mtd><m:mn>4.16</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>3.12</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.56</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.10</m:mn></m:mrow></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>3.12</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>5.03</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.83</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>1.09</m:mn></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mn>0.56</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.83</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.76</m:mn></m:mtd>
   <m:mtd><m:mn>0.34</m:mn></m:mtd>
</m:mtr><m:mtr>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.10</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>1.09</m:mn></m:mtd>
   <m:mtd><m:mn>0.34</m:mn></m:mtd>
   <m:mtd><m:mn>1.18</m:mn></m:mtd>
</m:mtr>
</m:mtable></m:mfenced>
<m:mtext>,</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div>

using packed storage.  Here <m:math><m:mi>B</m:mi></m:math>&#160;is symmetric positive definite and must first be factorized by <a class="rout" href="../F07/f07gdf.xml">F07GDF (DPPTRF)</a>.  The program calls F08TEF (DSPGST) to reduce the problem to the standard form <m:math><m:mi>C</m:mi><m:mi>y</m:mi><m:mo>=</m:mo><m:mi>&#955;</m:mi><m:mi>y</m:mi></m:math>; then <a class="rout" href="../F08/f08gef.xml">F08GEF (DSPTRD)</a> to reduce <m:math><m:mi>C</m:mi></m:math>&#160;to tridiagonal form, and <a class="rout" href="../F08/f08jff.xml">F08JFF (DSTERF)</a> to compute the eigenvalues.</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/f08tefe.f90">Program Text (f08tefe.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/f08tefe.d">Program&#160;Data (f08tefe.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/f08tefe.r">Program Results (f08tefe.r)</a></p>
<hr/><div><a class="rout" href="../../pdf/F08/f08tef.pdf">F08TEF (DSPGST) (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>