>output_unit_write</span><span class="p">,</span><span class="s1">&#39;(&quot;Number of impurity species: &quot;,I16)&#39;</span><span class="p">)&amp;</span> 
            <span class="n">cparams_ms</span><span class="p">%</span><span class="n">num_impurity_species</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>
        