span>, <span class="keywordtype">intent(inout)</span> :: map(:)</div>
<div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;  </div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;  <span class="comment">! Variables</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;  <span class="keywordtype">integer</span> :: i</div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;  <span class="key