[UP]

Manual Reference Pages  - random_kiss64 (3)

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

random_kiss64 (3) October 17, 2020
Generated by manServer 1.08 from 6d4a96c3-24fd-4879-9b35-6dc6dd49b98d using man macros.