C Library Functions  - mtprng_rand_real1 (3)

NAME
mtprng_rand_real1(3f) - [M_random:MERSENNE TWISTER] Obtain a pseudo-random real number in the range [0.0,1.0] (LICENSE:CUSTOM OPEN)

CONTENTS

Synopsis
Description
Options
Returns
Examples

SYNOPSIS
function mtprng_rand_real1(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 or equal to 0 and less than or equal to 1.

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

RETURNS
r ...

EXAMPLES
Sample program: 

   program demo_mtprng_real1
   use M_random, only : mtprng_init
   use M_random, only : mtprng_state
   use M_random, only : mtprng_rand_real1
   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_real1(state)
   end program demo_mtprng_real1

Nemo Release 3.1 mtprng_rand_real1 (3) February 23, 2025
Generated by manServer 1.08 from a967d11b-53d7-4555-8ece-8601d9a515b6 using man macros.