pan class="n">IN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">e</span>
    <span class="kt">INTEGER</span><span class="p">(</span><span class="kt">C_INT</span><span class="p">)</span> <span class="kd">::</span> <span class="n">FIO_MAKE_SPECIES</span>
    
    <span class="n">FIO_MAKE_SPECIES</span> <span class="o">=</span> <span class="n">e</span> <span class="o">+</span> <span class="n">p</span><span class="o">*</span><span class="mi">256</span> <span class="o">+</span> <span c