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.71828180'
  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