>    index</span> <span class="o">=</span> <span class="nb">MINLOC</span><span class="p">(</span><span class="nb">ABS</span><span class="p">(</span><span class="n">h_params</span><span class="p">%</span><span class="n">g</span> <span class="o">-</span> <span class="n">g</span><span class="p">),</span><span class="mi">1</span><span class="p">)</span>
    <span class="c">!write(6,*) index</span>
    
    <span class="c">! index of gamma supplied to function in Hollmann input gamma range</span>
    <span class