ite"><pre><span></span><span class="w">   </span><span class="k">subroutine </span><span class="n">ml_htridi</span><span class="p">(</span><span class="n">nm</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">ar</span><span class="p">,</span><span class="w"> </span><span class="n">ai</span><span class="p">,</span><span class="w"> </span><span class="n">d</span><span class="p">,</span><span class="w"> </span><span clas