ass="line"><a id="l00273" name="l00273"></a><span class="lineno">  273</span>use, <span class="keywordtype">intrinsic</span> :: iso_c_binding</div>
<div class="line"><a id="l00274" name="l00274"></a><span class="lineno">  274</span><span class="keywordtype">type</span>(c_ptr), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">value</span> :: henv</div>
<div class="line"><a id="l00275" name="l00275"></a><span class="lineno">  275</span><span class="keywordtype">integer(c_short)</span>, <