/a><span class="lineno">  208</span>&#160;        <span class="keywordflow">if</span>( present(resolution) ) invresolution = ceiling( 1.0_8/resolution )</div>
<div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;        </div>
<div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;        call fdate(date)</div>
<div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;        </div>
<div class="line"><a name="l00212"></a><span class="lineno