61</span>result(fresult)</div>
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno">  162</span>use, <span class="keywordtype">intrinsic</span> :: iso_c_binding</div>
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno">  163</span><span class="keywordtype">type</span>(c_ptr), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">value</span> :: hstmt</div>
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno">  164</span><span class="