main Program

Uses

- PlantFEM

Variables

Type	Attributes		Name		Initial
integer(kind=int32),	parameter	::	sample	=	10000
integer(kind=int32),	parameter	::	division	=	10
type(Random_)		::	random
type(IO_)		::	f
real(kind=real64)		::	list(sample)
integer(kind=int32)		::	i
real(kind=real64),	allocatable	::	histogram(:,:)