c	This is a simple program that generates random values and write it
c       into an output file
        PROGRAM RANDOM
	IMPLICIT REAL*8 (A-H,O-Z)
	PARAMETER(MAXI=144)
	REAL*8 CAP(MAXI)
	OPEN(UNIT=8,FILE='random.out',STATUS='REPLACE')
c	CALL RANDOM_NUMBER (CAP)
	DO 10 I=1,MAXI
	CAP(I)= RAND()
10      CONTINUE
c Write out results.
	DO 513 I=1,MAXI
	WRITE(8,*) CAP(I)
513     CONTINUE
	STOP
	END