"line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span><span class="keywordtype">integer(c_short)</span> :: fresult</div>
</div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span><span class="keyword">end function</span></div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span> </div>
<div class="foldopen" id="foldopen00138" data-start="" data-end="">
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno"><