---

C Library Functions  - random_kiss64 (3)

---

NAME

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

CONTENTS

Synopsis
Description
Examples

SYNOPSIS

function random_kiss64()

     integer, parameter  :: i8b = selected_int_kind(18)
     integer(i8b)        :: random_kiss64

DESCRIPTION

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

EXAMPLES

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 (3)

February 23, 2025

Generated by manServer 1.08 from a0960737-eb01-4bba-b8d9-ba2cbb72cae3 using man macros.