---

Manual Reference Pages  - random_kiss64 (3m_random)

---

NAME

random_kiss64 - [M_random] A 64-bit KISS random number generator by George Margaglia.

CONTENTS

Synopsis
Description
Example

SYNOPSIS

function random_kiss64()

integer, parameter
	:: i8b = selected_int_kind(18) ! eight-byte integer
integer(i8b)
	:: random_kiss64

DESCRIPTION

A simple random number generator that returns a random 64-bit INTEGER. The same sequence is returned.

EXAMPLE

Sample usage:

    program demo_random_kiss64
    use M_random, only : random_kiss64
    implicit none
    integer, parameter    :: i8b = selected_int_kind(18)  ! eight-byte integer
    integer(i8b)          :: i, t

       write(*,*)’HUGE=’,huge(0_i8b)

       do i = 1, 100000000
          t = random_kiss64()
          if(mod(i,1000000_i8b+1_i8b)==1000000_i8b)write(*,*)i,’ T=’,T
       enddo

       if (t .eq. 1666297717051644203_i8b) then
          print *, "100 million calls to KISS() OK"
       else
          print *, "Fail"
       endif
    end program demo_random_kiss64

---

Nemo Release 3.1

random_kiss64 (3m_random)

April 12, 2023

Generated by manServer 1.08 from fdcc07dc-5b13-4dc4-b505-d64b248d54c5 using man macros.