ran1 Function

function ran1(idum)

idum = 1

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	idum

Return Value real(kind=8)