C Library Functions - mtprng_init_by_array (3)

NAME

mtprng_init_by_array(3f) - [M_random:MERSENNE TWISTER] Initialize the Mersenne Twister random number generator with "seed" array (LICENSE:CUSTOM OPEN)

Synopsis
Description
Options
Returns
Examples

SYNOPSIS

subroutine mtprng_init_by_array(init_key, state)

     integer(INT32), dimension(:), intent(in) :: init_key
     type(mtprng_state), intent(out) :: state

DESCRIPTION

Initialize the Mersenne Twister random number generator with "seed" array

OPTIONS

init_key
seed array

RETURNS

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

EXAMPLES

Sample program:

   program demo_mtprng_init_by_array
   use M_random, only : mtprng_state, mtprng_init_by_array
   use M_random, only : mtprng_rand64, mtprng_rand_real1
   use, intrinsic :: iso_fortran_env, only : int32, int64
   implicit none
   integer(INT32)     :: init_key(3)
   type(mtprng_state) :: state
     GET_SEED: block
     integer :: count
     integer :: count_rate
        call system_clock(count, count_rate)
        init_key(1) = 11*count
        init_key(2) = 37*count
        init_key(3) = 97*count
     endblock GET_SEED
     call mtprng_init_by_array(init_key, state )
     ! returns a INT64 integer with a range in 0 .. 2^32-1
     write(*,*) mtprng_rand64(state)
     ! returns a IEEE64 real, may be used as double precision
     write(*,*) mtprng_rand_real1(state)
   end program demo_mtprng_init_by_array

Nemo Release 3.1

mtprng_init_by_array (3)

June 29, 2025

Generated by manServer 1.08 from cd59d5e0-b1c3-4b1f-9489-d47d9deb0fe2 using man macros.