	SUBROUTINE UNFRM(LB,UB,UCON,IDISC)
	COMMON RA
	CALL RAN(RA)
	UCON=LB+RA*(UB-LB)
	CALL RAN(RA)
	UUB=UB+1
	IDISC=LB+RA*(UUB-LB)
	RETURN
	END
