<?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>F07ATF (ZGEEQU) : NAG Library, Mark 22</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/F07/f07atf.pdf">F07ATF (ZGEEQU) (PDF version)</a></div><div><a class="chap" href="f07conts.xml">F07 Chapter Contents</a></div><div><a class="chapint" href="f07intro.xml">F07 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/>F07ATF (ZGEEQU)</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">F07ATF (ZGEEQU) computes real diagonal scaling matrices <m:math>
 <m:msub><m:mi>D</m:mi><m:mi>R</m:mi></m:msub>
</m:math>&#160;and <m:math>
 <m:msub><m:mi>D</m:mi><m:mi>C</m:mi></m:msub>
</m:math>&#160;intended to equilibrate a complex <m:math>
 <m:mi>m</m:mi>
</m:math>&#160;by <m:math>
 <m:mi>n</m:mi>
</m:math>&#160;matrix <m:math>
 <m:mi>A</m:mi>
</m:math>&#160;and reduce its condition number.</div><h2 class="standard"><a class="sec" name="specification" id="specification"/>2&#160;&#160;Specification</h2>
<table class="fspec"><tr><td class="tdfspec1">SUBROUTINE&#160;F07ATF&#160;(</td><td class="tdfspec2"><a class="arg" href="#M">M</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="#R">R</a>, <a class="arg" href="#C">C</a>, <a class="arg" href="#ROWCND">ROWCND</a>, <a class="arg" href="#COLCND">COLCND</a>, <a class="arg" href="#AMAX">AMAX</a>, <a class="arg" href="#INFO">INFO</a>)</td></tr><tr><td class="tdfspec1">INTEGER</td><td class="tdfspec2">M, N, LDA, INFO</td></tr><tr><td class="tdfspec1"><b><i>double&#160;precision</i></b></td><td class="tdfspec2">R(M), C(N), ROWCND, COLCND, AMAX</td></tr><tr><td class="tdfspec1"><b><i>complex*16</i></b></td><td class="tdfspec2">A(LDA,*)</td></tr></table><div class="paramtext">The routine may be called by its 
    LAPACK
    name <span class="bitalic">zgeequ</span>.</div><h2 class="standard"><a class="sec" name="description" id="description"/>3&#160;&#160;Description</h2>
<div class="paramtext">F07ATF (ZGEEQU) computes the diagonal scaling matrices. The diagonal scaling matrices are chosen to try to make the elements of largest absolute value in each row and column of the matrix <m:math>
 <m:mi>B</m:mi>
</m:math>&#160;given by

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
<m:mi>B</m:mi><m:mo>=</m:mo><m:msub><m:mi>D</m:mi><m:mi>R</m:mi></m:msub><m:mi>A</m:mi><m:msub><m:mi>D</m:mi><m:mi>C</m:mi></m:msub>
</m:math></td><td class="formula2"/></tr></table></div>

have absolute value <m:math><m:mn>1</m:mn></m:math>. The diagonal elements of <m:math>
 <m:msub><m:mi>D</m:mi><m:mi>R</m:mi></m:msub>
</m:math>&#160;and <m:math>
 <m:msub><m:mi>D</m:mi><m:mi>C</m:mi></m:msub>
</m:math>&#160;are restricted to lie in the safe range <m:math>
 <m:mfenced separators=""><m:mi>&#948;</m:mi><m:mo>,</m:mo><m:mrow><m:mn>1</m:mn><m:mo>/</m:mo><m:mi>&#948;</m:mi></m:mrow></m:mfenced>
</m:math>, where <m:math>
 <m:mi>&#948;</m:mi>
</m:math>&#160;is the value returned by routine <a class="rout" href="../X02/x02amf.xml">X02AMF</a>.  Use of these scaling factors is not guaranteed to reduce the condition number of <m:math>
 <m:mi>A</m:mi>
</m:math>&#160;but works well in practice.</div><h2 class="standard"><a class="sec" name="references" id="references"/>4&#160;&#160;References</h2>
<div class="paramtext">None.</div><h2 class="standard"><a class="sec" name="parameters" id="parameters"/>5&#160;&#160;Parameters</h2>
<dl><dt class="paramhead"><a name="M" id="M"/>1: &#160;&#160;&#8194; M &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: 
<m:math><m:mi>m</m:mi></m:math>, the number of rows of the matrix <m:math><m:mi>A</m:mi></m:math>.</div><div class="paramtext"><i>Constraint</i>:
  <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#M"><m:mi mathcolor="#EE0000" mathvariant="bold">M</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>0</m:mn></m:math>.
</div></dd><dt class="paramhead"><a name="N" id="N"/>2: &#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 number of columns of the matrix <m:math><m:mi>A</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"/>3: &#160;&#160;&#8194; A(<a class="arg" href="#LDA">LDA</a>,<m:math><m:mo>*</m:mo></m:math>) &#8211; <span class="bitalic">complex*16</span> array<span class="pclass">Input</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;whose scaling factors are to be computed.</div></dd><dt class="paramhead"><a name="LDA" id="LDA"/>4: &#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 F07ATF (ZGEEQU) 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="#M"><m:mi mathcolor="#EE0000" mathvariant="bold">M</m:mi></m:maction></m:mfenced></m:mrow></m:math>.
</div></dd><dt class="paramhead"><a name="R" id="R"/>5: &#160;&#160;&#8194; R(<a class="arg" href="#M">M</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Output</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>&#160;or <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#INgtM"><m:mi mathvariant="bold">M</m:mi></m:maction></m:math>, <a class="arg" href="#R">R</a> contains the row scale factors, the diagonal elements of <m:math><m:msub><m:mi>D</m:mi><m:mi>R</m:mi></m:msub></m:math>. The elements of <a class="arg" href="#R">R</a> will be positive.</div></dd><dt class="paramhead"><a name="C" id="C"/>6: &#160;&#160;&#8194; C(<a class="arg" href="#N">N</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Output</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>, <a class="arg" href="#C">C</a> contains the column scale factors, the diagonal elements of <m:math><m:msub><m:mi>D</m:mi><m:mi>C</m:mi></m:msub></m:math>. The elements of <a class="arg" href="#C">C</a> will be positive.</div></dd><dt class="paramhead"><a name="ROWCND" id="ROWCND"/>7: &#160;&#160;&#8194; ROWCND &#8211; <span class="bitalic">double precision</span><span class="pclass">Output</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>&#160;or <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>&gt;</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#INgtM"><m:mi mathvariant="bold">M</m:mi></m:maction></m:math>, <a class="arg" href="#ROWCND">ROWCND</a> contains the ratio of the smallest value of <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#R"><m:mi mathcolor="#EE0000" mathvariant="bold">R</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>&#160;to the largest value of <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#R"><m:mi mathcolor="#EE0000" mathvariant="bold">R</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>. If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#ROWCND"><m:mi mathcolor="#EE0000" mathvariant="bold">ROWCND</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>0.1</m:mn></m:math>&#160;and <a class="arg" href="#AMAX">AMAX</a> is neither too large nor too small, it is not worth scaling by <m:math><m:msub><m:mi>D</m:mi><m:mi>R</m:mi></m:msub></m:math>.</div></dd><dt class="paramhead"><a name="COLCND" id="COLCND"/>8: &#160;&#160;&#8194; COLCND &#8211; <span class="bitalic">double precision</span><span class="pclass">Output</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>, <a class="arg" href="#COLCND">COLCND</a> contains the ratio of the smallest value of <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>&#160;to the largest value of <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>. 
<div class="paramtext">If <m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#COLCND"><m:mi mathcolor="#EE0000" mathvariant="bold">COLCND</m:mi></m:maction><m:mo>&#8805;</m:mo><m:mn>0.1</m:mn></m:math>, it is not worth scaling by <m:math><m:msub><m:mi>D</m:mi><m:mi>C</m:mi></m:msub></m:math>.</div>
</div></dd><dt class="paramhead"><a name="AMAX" id="AMAX"/>9: &#160;&#160;&#8194; AMAX &#8211; <span class="bitalic">double precision</span><span class="pclass">Output</span></dt><dd><div class="paramtext"><i>On exit</i>: <m:math><m:mi mathvariant="normal">max</m:mi><m:mfenced open="|" close="|" separators=""><m:msub><m:mi>a</m:mi><m:mrow><m:mi>i</m:mi><m:mi>j</m:mi></m:mrow></m:msub></m:mfenced></m:math>. If <a class="arg" href="#AMAX">AMAX</a> is very close to overflow or underflow, the matrix <m:math><m:mi>A</m:mi></m:math>&#160;should be scaled.</div></dd><dt class="paramhead"><a name="INFO" id="INFO"/>10: &#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>, the <m:math><m:mi>i</m:mi></m:math>th argument 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="INgt0leqM" id="INgt0leqM"/><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>&gt;</m:mo><m:mn>0</m:mn><m:mtext>&#160;and&#160;</m:mtext><m:maction actiontype="link" dsi:type="simple" dsi:href="#INFO"><m:mi mathcolor="#EE0000" mathvariant="bold">INFO</m:mi></m:maction><m:mo>&#8804;</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#M"><m:mi mathcolor="#EE0000" mathvariant="bold">M</m:mi></m:maction></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:mi>i</m:mi></m:math>, the <m:math><m:mi>i</m:mi></m:math>th row of <m:math><m:mi>A</m:mi></m:math>&#160;is exactly zero.</div></dd>
</dl><dl class="ifail">
<dt class="errorhead"><a name="INgtM" id="INgtM"/><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>&gt;</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#M"><m:mi mathcolor="#EE0000" mathvariant="bold">M</m:mi></m:maction></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:mi>i</m:mi></m:math>, the <m:math><m:mfenced separators=""><m:mi>i</m:mi><m:mo>-</m:mo><m:maction actiontype="link" dsi:type="simple" dsi:href="#M"><m:mi mathcolor="#EE0000" mathvariant="bold">M</m:mi></m:maction></m:mfenced></m:math>th column of <m:math><m:mi>A</m:mi></m:math>&#160;is exactly zero.</div></dd>
</dl><h2 class="standard"><a class="sec" name="accuracy" id="accuracy"/>7&#160;&#160;Accuracy</h2>
<div class="paramtext">The computed scale factors will be close to the exact scale factors.</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="../F07/f07aff.xml">F07AFF (DGEEQU)</a>.</div><h2 class="standard"><a class="sec" name="example" id="example"/>9&#160;&#160;Example</h2>
<div class="paramtext">This example equilibrates the general matrix <m:math>
 <m:mi>A</m:mi>
</m:math>&#160;given by

<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="left">
   <m:mtr>
    <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>1.34</m:mn></m:mrow><m:mo>+</m:mo><m:mn>2.55</m:mn><m:mi>i</m:mi></m:mtd>
    <m:mtd><m:mphantom><m:mo>(</m:mo></m:mphantom><m:mfenced separators=""><m:mn>0.28</m:mn><m:mo>+</m:mo><m:mn>3.17</m:mn><m:mi>i</m:mi></m:mfenced><m:mo>&#215;</m:mo><m:msup><m:mn>10</m:mn><m:mn>10</m:mn></m:msup></m:mtd>
    <m:mtd><m:mphantom><m:mo>(</m:mo><m:mo>(</m:mo></m:mphantom><m:mrow><m:mo>-</m:mo><m:mn>6.39</m:mn></m:mrow><m:mo>-</m:mo><m:mn>2.20</m:mn><m:mi>i</m:mi></m:mtd>
   </m:mtr><m:mtr>
    <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>1.70</m:mn></m:mrow><m:mo>-</m:mo><m:mn>1.41</m:mn><m:mi>i</m:mi></m:mtd>
    <m:mtd><m:mphantom><m:mo>(</m:mo></m:mphantom><m:mfenced separators=""><m:mn>3.31</m:mn><m:mo>-</m:mo><m:mn>0.15</m:mn><m:mi>i</m:mi></m:mfenced><m:mo>&#215;</m:mo><m:msup><m:mn>10</m:mn><m:mn>10</m:mn></m:msup></m:mtd>
    <m:mtd><m:mphantom><m:mo>(</m:mo><m:mo>(</m:mo></m:mphantom><m:mrow><m:mo>-</m:mo><m:mn>0.15</m:mn></m:mrow><m:mo>+</m:mo><m:mn>1.34</m:mn><m:mi>i</m:mi></m:mtd>
   </m:mtr><m:mtr>
    <m:mtd><m:mphantom><m:mo>(</m:mo></m:mphantom><m:mfenced separators=""><m:mn>2.41</m:mn><m:mo>+</m:mo><m:mn>0.39</m:mn><m:mi>i</m:mi></m:mfenced><m:mo>&#215;</m:mo><m:msup><m:mn>10</m:mn><m:mrow><m:mo>-</m:mo><m:mn>10</m:mn></m:mrow></m:msup></m:mtd>
    <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.56</m:mn></m:mrow><m:mo>+</m:mo><m:mn>1.47</m:mn><m:mi>i</m:mi></m:mtd>
    <m:mtd><m:mphantom><m:mo>(</m:mo></m:mphantom><m:mfenced separators=""><m:mrow><m:mo>-</m:mo><m:mn>0.83</m:mn></m:mrow><m:mo>-</m:mo><m:mn>0.69</m:mn><m:mi>i</m:mi></m:mfenced><m:mo>&#215;</m:mo><m:msup><m:mn>10</m:mn><m:mrow><m:mo>-</m:mo><m:mn>10</m:mn></m:mrow></m:msup></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">Details of the scaling factors, and the scaled matrix are output.</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/f07atfe.f">Program Text (f07atfe.f)</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/f07atfe.d">Program&#160;Data (f07atfe.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/f07atfe.r">Program Results (f07atfe.r)</a></p>
<hr/><div><a class="rout" href="../../pdf/F07/f07atf.pdf">F07ATF (ZGEEQU) (PDF version)</a></div><div><a class="chap" href="f07conts.xml">F07 Chapter Contents</a></div><div><a class="chapint" href="f07intro.xml">F07 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. 2009</a></div></body></html>
