==============================</span>
<span class="c">!</span>
<span class="c">!     .. Local Scalars ..</span>
<span class="c">!     ..</span>
<span class="c">!     .. External Functions ..</span>
<span class="c">!     ..</span>
<span class="c">!</span>
<span class="c">!        code for both increments equal to 1</span>
<span class="c">!</span>
<span class="c">!</span>
<span class="c">!        code for unequal increments or equal increments</span>
<span class="c">!          not equal to 1</span>
<span clas