<?xml-stylesheet type="text/xsl" href="../styles/pmathml.xsl"?><html xmlns="http://www.w3.org/1999/xhtml" xmlns:h="http://www.w3.org/1999/xhtml" xmlns:dsi="http://www.w3.org/1999/xlink" xml:space="preserve"><head>
<!-- saved from url=(0014)about:internet -->
<title>
    NAG Fortran Library Manual, Mark 21 : 
   E04WBF</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 href="../../pdf/E04/e04wbf.pdf">E04WBF (pdf version)</a></div><div><a href="e04_conts.xml">Chapter Contents</a></div><div><a href="e04_intro.xml">Chapter Introduction</a></div>
<div><a href="../mark21.xml">NAG Library Manual</a></div><hr/><h1 class="libdoc">NAG Fortran Library Routine Document<br/><br/>E04WBF</h1><div class="paramtext"><div class="header"><b>Note:</b> 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><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">&#160;1&#160;<b>Purpose</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#specification">&#160;2&#160;<b>Specification</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#description">&#160;3&#160;<b>Description</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#references">&#160;4&#160;<b>References</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#parameters">&#160;5&#160;<b>Parameters</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#errors">&#160;6&#160;<b>Error Indicators and Warnings</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#accuracy">&#160;7&#160;<b>Accuracy</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#fcomments">&#160;8&#160;<b>Further Comments</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#example">&#160;9&#160;<b>Example</b></a>
</div>
</div>
</div><h2><a name="purpose" id="purpose"/>1&#160;&#160;Purpose</h2><div class="paramtext">E04WBF is used to initialize routines <a class="rtnref" href="../E04/e04dgf.xml">E04DGA</a>, <a class="rtnref" href="../E04/e04mff.xml">E04MFA</a>, <a class="rtnref" href="../E04/e04ncf.xml">E04NCA</a>, <a class="rtnref" href="../E04/e04nff.xml">E04NFA</a>, <a class="rtnref" href="../E04/e04nkf.xml">E04NKA</a>, <a class="rtnref" href="../E04/e04ucf.xml">E04UCA</a>, <a class="rtnref" href="../E04/e04uff.xml">E04UFA</a>, <a class="rtnref" href="../E04/e04ugf.xml">E04UGA</a> and <a class="rtnref" href="../E04/e04usf.xml">E04USA</a>.</div><h2><a name="specification" id="specification"/>2&#160;&#160;Specification</h2><table class="fspec"><tr><td class="tdfspec1">SUBROUTINE&#160;E04WBF&#160;(</td><td class="tdfspec2"><a class="argref" href="#RNAME">RNAME</a>, <a class="argref" href="#CWSAV">CWSAV</a>, <a class="argref" href="#LCWSAV">LCWSAV</a>, <a class="argref" href="#LWSAV">LWSAV</a>, <a class="argref" href="#LLWSAV">LLWSAV</a>, <a class="argref" href="#IWSAV">IWSAV</a>, <a class="argref" href="#LIWSAV">LIWSAV</a>, <a class="argref" href="#RWSAV">RWSAV</a>, <a class="argref" href="#LRWSAV">LRWSAV</a>, <a class="argref" href="#IFAIL">IFAIL</a>)</td></tr><tr><td class="tdfspec1">INTEGER</td><td class="tdfspec2">LCWSAV, LLWSAV, IWSAV(LIWSAV), LIWSAV, LRWSAV, IFAIL</td></tr><tr><td class="tdfspec1"><b><i>double&#160;precision</i></b></td><td class="tdfspec2">RWSAV(LRWSAV)</td></tr><tr><td class="tdfspec1">LOGICAL</td><td class="tdfspec2">LWSAV(LLWSAV)</td></tr><tr><td class="tdfspec1">CHARACTER*6</td><td class="tdfspec2">RNAME</td></tr><tr><td class="tdfspec1">CHARACTER*80</td><td class="tdfspec2">CWSAV(LCWSAV)</td></tr></table><h2><a name="description" id="description"/>3&#160;&#160;Description</h2><div class="paramtext">E04WBF initializes some or all of the arrays <a class="argref" href="#CWSAV">CWSAV</a>, <a class="argref" href="#LWSAV">LWSAV</a>, <a class="argref" href="#IWSAV">IWSAV</a> and <a class="argref" href="#RWSAV">RWSAV</a> for the routine specified by <a class="argref" href="#RNAME">RNAME</a>, and any associated option setting routines.</div><h2><a name="references" id="references"/>4&#160;&#160;References</h2><div class="paramtext">None.</div><h2><a name="parameters" id="parameters"/>5&#160;&#160;Parameters</h2><dl><dt class="paramhead"><a name="RNAME" id="RNAME"/>1:
  
  &#160;&#160;&#8194;
  RNAME &#8211; CHARACTER*6<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the name of the routine to be initialized.</div><div class="paramtext"><i>Constraint</i>:
  <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:maction actiontype="link" dsi:href="#RNAME" dsi:type="simple"><m:mi mathcolor="#EE0000" mathvariant="bold">RNAME</m:mi></m:maction></m:math>&#160;must be a valid routine name.



</div></dd><dt class="paramhead"><a name="CWSAV" id="CWSAV"/>2:
  
  &#160;&#160;&#8194;
  CWSAV(<a class="argref" href="#LCWSAV">LCWSAV</a>) &#8211; CHARACTER*80 array<span class="pclass">Communication Array</span></dt><dt class="multi-paramhead"><a name="LCWSAV" id="LCWSAV"/>3:
  
  &#160;&#160;&#8194;
  LCWSAV &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the dimension of the array <a class="argref" href="#CWSAV">CWSAV</a> as declared in the (sub)program from which E04WBF is called.</div><div class="paramtext"><i>Constraint</i>:
  

see parameter <a class="argref" href="#RNAME">RNAME</a> for the minimum value of  <a class="argref" href="#LCWSAV">LCWSAV</a>.</div></dd><dt class="paramhead"><a name="LWSAV" id="LWSAV"/>4:
  
  &#160;&#160;&#8194;
  LWSAV(<a class="argref" href="#LLWSAV">LLWSAV</a>) &#8211; LOGICAL array<span class="pclass">Communication Array</span></dt><dt class="multi-paramhead"><a name="LLWSAV" id="LLWSAV"/>5:
  
  &#160;&#160;&#8194;
  LLWSAV &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: 
the dimension of the array <a class="argref" href="#LWSAV">LWSAV</a> as declared in the (sub)program from which E04WBF is called.
</div><div class="paramtext"><i>Constraint</i>:
  

see parameter <a class="argref" href="#RNAME">RNAME</a> for the minimum value of  <a class="argref" href="#LLWSAV">LLWSAV</a>.</div></dd><dt class="paramhead"><a name="IWSAV" id="IWSAV"/>6:
  
  &#160;&#160;&#8194;
  IWSAV(<a class="argref" href="#LIWSAV">LIWSAV</a>) &#8211; INTEGER array<span class="pclass">Communication Array</span></dt><dt class="multi-paramhead"><a name="LIWSAV" id="LIWSAV"/>7:
  
  &#160;&#160;&#8194;
  LIWSAV &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the dimension of the array <a class="argref" href="#IWSAV">IWSAV</a> as declared in the (sub)program from which E04WBF is called.</div><div class="paramtext"><i>Constraint</i>:
  

see parameter <a class="argref" href="#RNAME">RNAME</a> for the minimum value of  <a class="argref" href="#LIWSAV">LIWSAV</a>.</div></dd><dt class="paramhead"><a name="RWSAV" id="RWSAV"/>8:
  
  &#160;&#160;&#8194;
  RWSAV(<a class="argref" href="#LRWSAV">LRWSAV</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Communication Array</span></dt><dt class="multi-paramhead"><a name="LRWSAV" id="LRWSAV"/>9:
  
  &#160;&#160;&#8194;
  LRWSAV &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the dimension of the array <a class="argref" href="#RWSAV">RWSAV</a> as declared in the (sub)program from which E04WBF is called.</div><div class="paramtext"><i>Constraint</i>:
  

see parameter <a class="argref" href="#RNAME">RNAME</a> for the minimum value of  <a class="argref" href="#LRWSAV">LRWSAV</a>.</div></dd><dt class="paramhead"><a name="IFAIL" id="IFAIL"/>10:
  
  &#8194;
  IFAIL &#8211; INTEGER<span class="pclass">Input/Output</span></dt><dd>
<div class="paramtext"><i>On entry</i>: <a class="argref" href="#IFAIL">IFAIL</a> must be set to 0, <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow><m:mtext>&#8203; or &#8203;</m:mtext><m:mn>1</m:mn></m:math>. If you are unfamiliar with this parameter you should refer to Chapter <a class="secref" href="../P01/p01_conts.xml">P01</a> for details.</div>
<div class="paramtext"><i>On exit</i>: <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:maction actiontype="link" dsi:href="#IFAIL" dsi:type="simple"><m:mi mathcolor="#EE0000" mathvariant="bold">IFAIL</m:mi></m:maction> <m:mo>=</m:mo><m:maction actiontype="link" dsi:href="#errors" dsi:type="simple"><m:mn mathvariant="bold" mathcolor="#003399">0</m:mn></m:maction></m:math>&#160;unless the routine detects an error (see Section <a class="secref" href="#errors">6</a>). <div class="paramtext">For environments where it might be inappropriate to halt program execution when an error is detected, the value <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:mrow><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow><m:mtext>&#8203; or &#8203;</m:mtext><m:mn>1</m:mn></m:math>&#160;is recommended.  If the output of error messages is undesirable, then the value 1 is recommended.  Otherwise, if you are not familiar with this parameter the recommended value is 0.  <b>When the value <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:mrow><m:mo>-</m:mo><m:mn mathvariant="bold">1</m:mn></m:mrow><m:mtext>&#8203; or &#8203;</m:mtext><m:mn mathvariant="bold">1</m:mn></m:math>&#160;is used it is essential to test the value of <a class="argref" href="#IFAIL">IFAIL</a> on exit.</b></div></div></dd></dl><h2><a name="errors" id="errors"/>6&#160;&#160;Error Indicators and Warnings</h2>
<div class="paramtext">If on entry <m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:maction actiontype="link" dsi:href="#IFAIL" dsi:type="simple"><m:mi mathcolor="#EE0000" mathvariant="bold">IFAIL</m:mi></m:maction> <m:mo>=</m:mo></m:math>&#160;<a class="ifailref" href="#errors">0</a> or <a class="ifailref" href="#errors">&#8722;1</a>, explanatory error messages are output on the current error message unit (as defined by <a class="rtnref" href="../X04/x04aaf.xml">X04AAF</a>).</div><div class="paramtext">Errors or warnings detected by the routine:</div>
<dl class="ifails"><dt class="errorhead"><a name="IFeq1" id="IFeq1"/><m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:maction actiontype="link" dsi:href="#IFAIL" dsi:type="simple"><m:mi mathcolor="#EE0000" mathvariant="bold">IFAIL</m:mi></m:maction> <m:mo>=</m:mo> <m:mn>1</m:mn></m:math></dt>
<dd>
<div class="paramtext">The routine name supplied in <a class="argref" href="#RNAME">RNAME</a> is invalid</div>
</dd><dt class="errorhead"><a name="IFeq2" id="IFeq2"/><m:math xmlns:m="http://www.w3.org/1998/Math/MathML"><m:maction actiontype="link" dsi:href="#IFAIL" dsi:type="simple"><m:mi mathcolor="#EE0000" mathvariant="bold">IFAIL</m:mi></m:maction> <m:mo>=</m:mo> <m:mn>2</m:mn></m:math></dt>
<dd>
<div class="paramtext">One or more of the workspace array lengths <a class="argref" href="#LCWSAV">LCWSAV</a>, <a class="argref" href="#LLWSAV">LLWSAV</a>, <a class="argref" href="#LIWSAV">LIWSAV</a> or <a class="argref" href="#LRWSAV">LRWSAV</a> is too small.</div>
</dd></dl><h2><a name="accuracy" id="accuracy"/>7&#160;&#160;Accuracy</h2><div class="paramtext">Not applicable.</div><h2><a name="fcomments" id="fcomments"/>8&#160;&#160;Further Comments</h2><div class="paramtext">The time taken by E04WBF is negligible.</div><h2><a name="example" id="example"/>9&#160;&#160;Example</h2><div class="paramtext">The use of E04WBF is illustrated by the example programs of the routines listed in Section <a class="secref" href="#purpose">1</a>.</div><hr/><div><a href="../../pdf/E04/e04wbf.pdf">E04WBF (pdf version)</a></div><div><a href="e04_conts.xml">Chapter Contents</a></div><div><a href="e04_intro.xml">Chapter Introduction</a></div>
<div><a href="../mark21.xml">NAG Library Manual</a></div>
<div><hr/>
  &#169; The Numerical Algorithms Group Ltd, Oxford, UK. 2006
  </div></body></html>