ass="lineno">  184</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="l00185" name="l00185"></a><span class="lineno">  185</span><span class="keywordtype">integer(c_short)</span>, <span class="keywordtype">intent(out)</span> :: pcpar</div>
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno">  186</span><span class="keywordtype">integer(c_short)</span> :: fresult</d