---

C Library Functions  - 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
Examples

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.

EXAMPLES

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

---

Nemo Release 3.1

mtprng_rand_real3 (3)

February 23, 2025

Generated by manServer 1.08 from 40776304-d197-4a89-ab72-07e1b8884924 using man macros.