l function </span><span class="n">byte_size_logical</span><span class="p">(</span><span class="n">l</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">bytes</span><span class="p">)</span>
    <span class="c">!-----------------------------------------------------------------</span>
    <span class="c">!&lt; Procedure for computing the number of bytes of a logical variable.</span>
    <span class="c">!------------------------------------------------------------