/span><span class="nv">d0</span>,<span class="mi">66</span>.<span class="mi">0</span><span class="nv">d0</span>,<span class="mi">77</span>.<span class="mi">0</span><span class="nv">d0</span>,<span class="mi">88</span>.<span class="mi">0</span><span class="nv">d0</span>]<span class="ss">)</span>

<span class="k">end</span> <span class="nv">program</span> <span class="nv">demo_median</span>
</code></pre></div>

<p>Results:</p>
<div class="codehilite"><pre><span></span><code>real    70.00000
integer 49
double 