RANDNUM.F95

	PROGRAM RANDNUM
!
!  Purpose: To generate a series of random numbers
!
!  With the call to RANDOM_SEED
!
	IMPLICIT NONE
	DOUBLE PRECISION:: X		! Holds random number
	CHARACTER:: YN			! Test character
!
!  Initialize the sequence at random
	CALL RANDOM_SEED
!
	DO
	   CALL RANDOM_NUMBER(X)	! Place random value in X
	   WRITE(*,*)X
	   WRITE(*,10,ADVANCE='NO')
	   READ(*,20)YN
	   IF(YN.EQ.'N'.OR.YN.EQ.'n')EXIT   !Exit from loop if N or n entered
	END DO
   10	FORMAT(/'Another random number ? (Enter n to stop):')
   20	FORMAT(A1)
	STOP
	END PROGRAM RANDNUM