Page History

<!-- HTML generated using hilite.me --><div style="background: #ffffff; overflow:auto;width:auto;border:solid gray;border-width:.1em .1em .1em .8em;padding:.2em .6em;"><pre style="margin: 0; line-height: 125%"><span style="color: #888888">

!declare backscatter as double precision
real(kind=8), dimension(:), allocatable :: backscatter
 
!get the values
call codes_get(ibufr,precision</span>
<span style="color: #333399; font-weight: bold">real</span>(<span style="color: #007020">kind</span><span style="color: #333333">=</span><span style="color: #0000DD; font-weight: bold">8</span>), <span style="color: #008800; font-weight: bold">dimension</span>(:), <span style="color: #008800; font-weight: bold">allocatable</span> <span style="color: #008800; font-weight: bold">::</span> <span style="color: #996633">backscatter</span>
  
<span style="color: #888888">!get the values</span>
<span style="color: #008800; font-weight: bold">call </span><span style="color: #996633">codes_get</span>(<span style="color: #996633">ibufr</span>,<span style="background-color: #fff0f0">'/beamIdentifier=2/backscatter',backscatter);
do i=1,size(backscatter</span>,<span style="color: #996633">backscatter</span>);
<span style="color: #008800; font-weight: bold">do </span><span style="color: #996633">i</span><span style="color: #333333">=</span><span style="color: #0000DD; font-weight: bold">1</span>,<span style="color: #996633">size</span>(<span style="color: #996633">backscatter</span>)
    <span style="color: #888888">!compare with double precision missingmissing</span>
     if (backscatter(i)/=CODES_MISSING_DOUBLE) then
<span style="color: #008800; font-weight: bold">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; font-weight: bold">then</span>
        <span style="color: #888888">!process non missing valuesvalues</span>
    <span  else
style="color: #008800; font-weight: bold">else</span>
        <span style="color: #888888">!process missing valuesvalues</span>
    endif
end do<span style="color: #008800; font-weight: bold">endif</span>
<span style="color: #008800; font-weight: bold">end do</span>
</pre></div>