lass="c">!                   FOR THIS SUBROUTINE IS 7500.</span>
<span class="c">!                 --P SHOULD BE BETWEEN 0.0 (EXCLUSIVELY)</span>
<span class="c">!                   AND 1.0 (EXCLUSIVELY).</span>
<span class="c">!     OTHER DATAPAC   SUBROUTINES NEEDED--SORT, UNIMED, PLOT, GEOPPF.</span>
<span class="c">!     FORTRAN LIBRARY SUBROUTINES NEEDED--SQRT.</span>
<span class="c">!     MODE OF INTERNAL OPERATIONS--.</span>
<span class="c">!     ORIGINAL VERSION--NOVEMBER  1975.</span>
<span class="