[UP]


Manual Reference Pages  - mtprng_rand_real3 (3)

NAME

mtprng_rand_real3(3f) - [M_random:MERSENNE TWISTER] Obtain a pseudo-random real number in the range (0< XXX <1) (LICENSE:CUSTOM OPEN)

CONTENTS

Synopsis
Description
Options
Returns
Example

SYNOPSIS

function mtprng_rand_real3(state) result(r) type(mtprng_state), intent(inout) :: state real(IEEE64) :: r

DESCRIPTION

Obtain a pseudo-random real number in the range (0,1), i.e., a number greater than 0 and less than 1.

OPTIONS

state generator state initialized by mtprng_init(3f) or mtprng_init_array(3f)

RETURNS

r a pseudo-random real number greater than 0 and less than 1.

EXAMPLE

Sample program:

    program demo_mtprng_real3
    use M_random, only : mtprng_state, mtprng_init, mtprng_rand_real3
    use, intrinsic :: iso_fortran_env, only : int32
    implicit none
    integer(INT32) :: seed
    type(mtprng_state) :: state
      GET_SEED: block
      integer :: count
      integer :: count_rate
         call system_clock(count, count_rate)
         seed = count
      endblock GET_SEED
      call mtprng_init(seed, state)
      write(*,*) mtprng_rand_real3(state)
    end program demo_mtprng_real3


mtprng_rand_real3 (3) October 17, 2020
Generated by manServer 1.08 from 352263e5-5f16-4198-985f-92f75b3c3a9e using man macros.