normal Function

private function normal(self)

Single normal random number

Type Bound

rng_t

Arguments

Type IntentOptional Attributes Name
class(rng_t), intent(inout) :: self

Return Value real(kind=dp)


Calls

proc~~normal~~CallsGraph proc~normal rng_t%normal proc~two_normals rng_t%two_normals proc~normal->proc~two_normals proc~unif_01 rng_t%unif_01 proc~two_normals->proc~unif_01 proc~next rng_t%next proc~unif_01->proc~next proc~rotl rotl proc~next->proc~rotl

Called by

proc~~normal~~CalledByGraph proc~normal rng_t%normal proc~get_maxwellian_velocity get_maxwellian_velocity proc~get_maxwellian_velocity->proc~normal

Source Code

  real(dp) function normal(self)
    class(rng_t), intent(inout) :: self
    real(dp)                    :: rands(2)

    rands  = self%two_normals()
    normal = rands(1)
  end function normal