demo_init_random_seed_by_system_clock.f90 Source File

      program demo_init_random_seed_by_system_clock
      use M_random, only : init_random_seed_by_system_clock
      integer :: i
      real    :: x
         call init_random_seed_by_system_clock()
         do i=1,10
            ! generate real pseudo-random numbers from 0 to <1.0
            call random_number(x)
            write(*,*)i,x
         enddo
      end program demo_init_random_seed_by_system_clock