>  251</span><span class="keywordtype">integer(c_short)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">value</span> :: flock</div>
<div class="line"><a id="l00252" name="l00252"></a><span class="lineno">  252</span><span class="keywordtype">integer(c_short)</span> :: fresult</div>
</div>
<div class="line"><a id="l00253" name="l00253"></a><span class="lineno">  253</span><span class="keyword">end function</span></div>
<div class="line"><a id="l00254" name="l00254"></a><span cl