./28_numeric_noabirule/m_random

ABINIT/m_random_zbq

ABINIT/m_random_zbq [ Modules ]

NAME

 m_random_zbq

FUNCTION

   This library contains routines for generating uniform random numbers
   between 0 & 1, using a Marsaglia-Zaman type subtract-with-borrow generator.
   This random number generator is non deterministic (it is not "pseudo-random").

   These routines have been downloaded from Richard Chandler homepage,
   then converted into Fortran90 standard.
   Authors:
      Richard Chandler (email: richard@stats.ucl.ac.uk)
      Paul Northrop (email: paul@stats.ucl.ac.uk)

   Copyright (C) Richard Chandler/Paul Northrop
   Please feel free to use and adapt these routines for your own use. We
   do, however, request that if the routines are used in work which is later
   presented in public, or published, the source of the code (ie. us!) is
   acknowledged. If for no other reason, this will allow other people to test
   the routines to see if there's anything horribly wrong with them that will
   invalidate your results.

   See http://www.ucl.ac.uk/~ucakarc/work/software/randgen.txt
   for further information

SOURCE

30 #if defined HAVE_CONFIG_H
31 #include "config.h"
32 #endif
33 
34 #include "abi_common.h"
35 
36 
37 module m_random_zbq
38 
39  use m_abicore
40 
41  use defs_basis,   only : sp, dp, std_out
42 
43  implicit none
44 
45  private

TABLE OF CONTENTS

ABINIT/m_random_zbq [ Modules ]