program randomvalues
            implicit none
	    integer, parameter :: maxsize = 50
            integer, parameter :: maxnum = 100
	    real, dimension(5) :: randomarray
	    integer :: i
	    
	    call random_seed()
            open(10, file='testrandoms.out')
            do i = 1, maxsize
		 call random_number(randomarray)
		 write(10,*) int(randomarray(1)*maxnum)
 	    end do
            
            close(10)

	END PROGRAM