dgrnd_uniform Function

function dgrnd_uniform(a, b) result(c)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: a
real(kind=8) :: b

Return Value real(kind=8)


Calls

proc~~dgrnd_uniform~~CallsGraph proc~dgrnd_uniform dgrnd_uniform mersenne mersenne proc~dgrnd_uniform->mersenne

Source Code

function dgrnd_uniform(a,b) result(c)
  real(8) :: a,b,c
  c = a + (b-a)*mersenne()
end function dgrnd_uniform