 name="l00227"></a><span class="lineno">  227</span><span class="keywordtype">integer(c_short)</span> :: fresult</div>
</div>
<div class="line"><a id="l00228" name="l00228"></a><span class="lineno">  228</span><span class="keyword">end function</span></div>
<div class="line"><a id="l00229" name="l00229"></a><span class="lineno">  229</span> </div>
<div class="foldopen" id="foldopen00230" data-start="" data-end="">
<div class="line"><a id="l00230" name="l00230"></a><span class="lineno"><a class="line" href="