program numerical
    implicit none
    integer :: max_p, max_r
    integer, dimension(10, 40) :: k
    integer :: r, p

    do p = 1, max_p
        do r = 1, max_r
            k = selected_real_kind(P=r, R=p)
        end do
    end do

   do p = 1, max_p
        do r = 1, max_r
            write (fmt="I2") k(p,r)
        end do

    end do


end program numerical