an><span class="keywordtype">integer(c_long)</span>, <span class="keywordtype">intent(out)</span> :: pfdesc</div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span><span class="keywordtype">integer(c_short)</span> :: fresult</div>
</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span><span class="keyword">end function</span></div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span> </div>
<div class="fold