demo_mtprng_real3 Program

      program demo_mtprng_real3
      use M_random, only : mtprng_state, mtprng_init, mtprng_rand_real3
      use, intrinsic :: iso_fortran_env, only : int32
      implicit none
      integer(INT32) :: seed
      type(mtprng_state) :: state
        GET_SEED: block
        integer :: count
        integer :: count_rate
           call system_clock(count, count_rate)
           seed = count
        endblock GET_SEED
        call mtprng_init(seed, state)
        write(*,*) mtprng_rand_real3(state)
      end program demo_mtprng_real3