0195" name="l00195"></a><span class="lineno">  195</span><span class="keywordtype">integer(c_long)</span>, <span class="keywordtype">intent(out)</span> :: pirow</div>
<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span><span class="keywordtype">integer(c_short)</span> :: fresult</div>
</div>
<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span><span class="keyword">end function</span></div>
<div class="line"><a id="l00198" name="l00198"></a><spa