Page History

<pre class="hljs" style="display: block; overflow-x: auto; padding: 0.5em; background-color: rgb(240, 240, 240); color: rgb(68, 68, 68);"><span class="hljs-comment" style="color: rgb(136, 136, 136);">! 

!declare backscatter as double precision

real(kind=8), dimension(:), allocatableprecision</span>
<span class="hljs-keyword" style="font-weight: 700;">real</span>(<span class="hljs-keyword" style="font-weight: 700;">kind</span>=<span class="hljs-number" style="color: rgb(136, 0, 0);">8</span>), <span class="hljs-keyword" style="font-weight: 700;">dimension</span>(:), <span class="hljs-keyword" style="font-weight: 700;">allocatable</span> :: backscatter

 
!<span class="hljs-comment" style="color: rgb(136, 136, 136);">! get the values
callvalues</span>
<span class="hljs-keyword" style="font-weight: 700;">call</span> codes_get(ibufr,<span class="hljs-string" style="color: rgb(136, 0, 0);">'/beamIdentifier=2/backscatter'</span>,backscatter);
do i=1,size<span class="hljs-keyword" style="font-weight: 700;">do</span> i=<span class="hljs-number" style="color: rgb(136, 0, 0);">1</span>,<span class="hljs-built_in" style="color: rgb(57, 115, 0);">size</span>(backscatter)
    <span class="hljs-comment" style="color: rgb(136, 136, 136);">! compare with double precision missingmissing</span>
    <span class="hljs-keyword"  ifstyle="font-weight: 700;">if</span> (backscatter(i)/=CODES_MISSING_DOUBLE) then <span class="hljs-keyword" style="font-weight: 700;">then</span>
        <span class="hljs-comment" style="color: rgb(136, 136, 136);">! process non missing valuesvalues</span>
    <span class="hljs-keyword"  else
style="font-weight: 700;">else</span>
        <span class="hljs-comment" style="color: rgb(136, 136, 136);">! process missing valuesvalues</span>
    endif
end do <span class="hljs-keyword" style="font-weight: 700;">endif</span>
<span class="hljs-keyword" style="font-weight: 700;">end</span> <span class="hljs-keyword" style="font-weight: 700;">do</span></pre>