r8mat_uniform_01 Subroutine

subroutine r8mat_uniform_01(m, n, seed, r)

************80

R8MAT_UNIFORM_01 returns a unit pseudorandom R8MAT.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	m
integer(kind=4)				::	n
integer(kind=4)				::	seed
real(kind=8)				::	r(m,n)

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	i
integer(kind=4),	public,	parameter	::	i4_huge	=	2147483647
integer(kind=4),	public		::	j
integer(kind=4),	public		::	k