><a name="l00121"></a><span class="lineno">  121</span>&#160;        <span class="keywordtype">character(200)</span> :: fstr</div>
<div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;        </div>
<div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;        effformatted = .false.</div>
<div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;        <span class="keywordflow">if</span>( present(formatted) ) effformatted = formatted</div