"s1">&#39;H&#39;</span><span class="p">))</span> <span class="k">then</span>
<span class="k">       do </span><span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">cparams_ms</span><span class="p">%</span><span class="n">num_impurity_species</span>
          <span class="k">if</span> <span class="p">(</span><span class="nb">int</span><span class="p">(</span><span class="n">cparams_ms</span><span class="p">%</span><span class="n">Zo</span><span class