random_mod.f90
865582e1b728geom_testmumps

random_mod.f90
View Options

			MODULE random

			!
			! Random module for the random number generator (RNG)
			!


			! This module, together with the file "random.h", allow to use
			! a high-quality, fast, parallel RNG developed by Charles Karney in Princeton University


			INCLUDE "random.h"

			CHARACTER(ran_c) :: random_seed_str = '2.7182818'
			INTEGER, allocatable, DIMENSION(:,:) :: seed ! nbprocs*ran_s size

			INTEGER, PARAMETER :: n_rand = 1
			INTEGER, allocatable:: ran_index(:) ! nbporcs size
			DOUBLE PRECISION, allocatable :: ran_array(:,:) ! nbprocs*ran_k size

			END MODULE random