! 	  From: "COMPUTATIONAL PHYSICS, 2nd Ed" 
! 		by RH Landau, MJ Paez, and CC Bordeianu 
! 		Copyright Wiley - VCH, 2007.
! 		Electronic Materials copyright: R Landau, Oregon State Univ, 2007;
! 		MJ Paez, Univ Antioquia, 2007; and CC Bordeianu, Univ Bucharest, 2007.
! 		Supported by the US National Science Foundation				 
! 		
! 	 ranDom.f90: simple random number generator, not for serious work																					 
 
Program random

  Implicit none
	Integer :: i, number, old, seed, x, y
	
 ! set parameters (seed for generator, number of generated numbers)
	seed = 11
	number = 1000
 ! open output file, seed number generator
	open(6, FILE = 'ranDom.dat', Status = 'Unknown')
	old = seed
	                                                        ! execution
  Do	i = 1, number                                              
	  x = modulo((57*old + 1), 256)
		y = modulo((57*x + 1), 256)
		write (6, *) x, y
		old = y 
	End Do
	close(6)
	Stop 'data saved in ranDom.dat'
End Program random