Page History

<!-- HTML generated using hilite.me --><div<pre class="hljs" style="backgrounddisplay: #ffffffblock; overflow-x: auto;width:auto;border:solid gray;border-width:.1em .1em .1em .8em;padding:.2em .6em;"><pre style="margin: 0; line-height: 125%"><span padding: 0.5em; background-color: rgb(240, 240, 240); color: rgb(68, 68, 68);"><span class="hljs-comment" style="color: #888888 rgb(136, 136, 136);">!declare backscatter as double precision</span>
<span class="hljs-keyword" style="color: #333399; font-weight: bold700;">real</span>(<span class="hljs-keyword" style="colorfont-weight: #007020700;">kind</span><spanspan>=<span styleclass="color: #333333">=</span><spanhljs-number" style="color: #0000DD; font-weight: boldrgb(136, 0, 0);">8</span>), <span class="hljs-keyword" style="color: #008800; font-weight: bold700;">dimension</span>(:), <span styleclass="color: #008800; font-weight: bold">allocatable</span> <spanhljs-keyword" style="color: #008800; font-weight: bold">::<700;">allocatable</span> <span style="color:: #996633">backscatter</span>backscatter
  
<span class="hljs-comment" style="color: #888888 rgb(136, 136, 136);">!get the values</span>
<span styleclass="color: #008800; font-weight: bold">call </span><span hljs-keyword" style="colorfont-weight: #996633">codes_get<700;">call</span> codes_get(ibufr,<span styleclass="color: #996633">ibufr</span>,<spanhljs-string" style="background-color: #fff0f0 rgb(136, 0, 0);">'/beamIdentifier=2/backscatter'</span>,backscatter);
<span styleclass="color: #996633">backscatter</span>);
<spanhljs-keyword" style="color: #008800; font-weight: bold">do </span><span style="color: #996633">i</span><span style="color: #333333">=</span><span700;">do</span> i=<span class="hljs-number" style="color: #0000DD; font-weight: boldrgb(136, 0, 0);">1</span>,<span styleclass="color: #996633">size</span>(<spanhljs-built_in" style="color: #996633">backscatter<rgb(57, 115, 0);">size</span>(backscatter)
    <span class="hljs-comment" style="color: #888888rgb(136, 136, 136);">!compare with double precision missing</span>
    <span class="hljs-keyword" style="color: #008800; font-weight: bold700;">if</span> (<span style="color: #996633">backscatter</span>(<span style="color: #996633">i</span>)<span style="color: #333333">/=</span><span style="color: #996633">CODES_MISSING_DOUBLE</span>) <span style="color: #008800; backscatter(i)/=CODES_MISSING_DOUBLE) <span class="hljs-keyword" style="font-weight: bold700;">then</span>
        <span class="hljs-comment" style="color: #888888 rgb(136, 136, 136);">!process non missing values</span>
    <span class="hljs-keyword" style="color: #008800; font-weight: bold700;">else</span>
        <span class="hljs-comment" style="color: #888888rgb(136, 136, 136);">!process missing values</span>
    <span class="hljs-keyword" style="color: #008800; font-weight: bold700;">endif</span>
<span class="hljs-keyword" style="colorfont-weight: #008800; 700;">end</span> <span class="hljs-keyword" style="font-weight: bold">end do<700;">do</span>
</pre></div>

pre>