class="c">!  Parameters:</span>
    <span class="c">!</span>
    <span class="c">!    Input, integer ( kind = 4 ) M, N, the number of rows and columns.</span>
    <span class="c">!</span>
    <span class="c">!    Input, real ( kind = 8 ) A(M,N), an M by N matrix to be printed.</span>
    <span class="c">!</span>
    <span class="c">!    Input, integer ( kind = 4 ) ILO, JLO, the first row and column to print.</span>
    <span class="c">!</span>
    <span class="c">!    Input, integer ( kind = 4 ) IHI, JHI, t