simulate_bernoulli - fabiankindermann/ce-fortran GitHub Wiki

subroutine simulate_bernoulli(x, p, fixed)

Simulates independent draws from a random variable following a Bernoulli distribution with probability to draw a value of .

• real*8 :: p
  The probability that a value of is drawn. Note that this input parameter needs to be in the interval .

• real*8 :: x    or    real*8 :: x(:)
  The subroutine stores the realizations of the draws from the random variable in the scalar or one-dimensional array x. If x is a scalar, the subroutine only draws one realization. If x is a one-dimensional array, the subroutine fills up all the array elements with independent draws from the random variable. Note that the output values are of the type real*8. If necessary, you can convert the number back into integer numbers using the intrinsic Fortran function int.

• logical :: fixed
  If a logical variable fixed is passed to the subroutine that takes the value .true., the subroutine uses a fixed random seed. As a result, the sequence of random numbers drawn by the subroutine will always be the same every time your program is restarted. If fixed is not present or takes a value of .false., then the random seed is initialized at some arbitrary value that depends on the time and date at which you started your program. Hence, the series of random numbers drawn by this subroutine will be different every time your program is restarted.

• Parts of this routine were copied and adapted from:
  • The GNU gfortran compiler documentation for the initialization of the seed of the random number generator.
• For further reading refer to:
  • Toral, R. & Colet, P. (2014). Stochastic Numerical Methods: An Introduction for Students and Scientists. Weinheim: Wiley.
• This routine is used in the following programs:
  • prog02_16.f90