body>
  </table>

    <br>


    
    

    
    



    
    <section>
    <h2><span class="anchor" id="src"></span>Source Code</h2>
    <div class="hl codehilite"><pre><span></span><span class="w">      </span><span class="k">SUBROUTINE </span><span class="n">POIPPF</span><span class="p">(</span><span class="n">P</span><span class="p">,</span><span class="n">Alamba</span><span class="p">,</span><span class="n">Ppf</span><span class="p">)</span>
<span class="kt">REAL</span><span class="p">(</span><span cla