** This program produces 100 random numbers in the range of -180 to 180

	open(1,file='out.ran')

	do i=1,100

** The ran4 function takes a negative number and returns a random
*	value in the range of 0.0 to 1.0. Therefore, to produce 
*       numbers in the range of -n to n, one needs to use
*	         2.0*n*(ran4(-i)-0.5)

	y=360.0*(ran4(-i)-0.5)

	write(1,11) y
11	format(f10.3)

	enddo

	close(1)

	print*,'The output file is out.ran'

	stop
	end