shared_data.f90

Go to the documentation of this file.

 
module shared_data
 
  use kinds
  use constants
  
  implicit none
 
  save
 
  ! Random number seed
  integer(8) :: seed
 
  ! Arrays that are only used by rank 1
  real(real64), allocatable, dimension(:) :: av_energies_of_t,        &
                                             av_c_of_t,               &
                                             av_acceptance_of_t
  real(real64), allocatable, dimension(:,:,:,:) :: av_rho_of_t
  real(real64), allocatable, dimension(:,:,:,:,:,:) :: av_order_of_t
 
  ! Arrays used on all processors
  ! Indices run (basis, x, y, z)
  integer(array_int), allocatable, dimension(:,:,:,:) :: config
  real(real64), allocatable, dimension(:) :: energies_of_t, c_of_t,   &
                                             acceptance_of_t,         &
                                             temperature
  real(real64), allocatable, dimension(:,:,:,:,:,:) :: order_of_t
  real(real64), allocatable, dimension(:,:,:,:) :: rho_of_t
  real(real64), dimension(:,:,:,:), allocatable :: order
  real(real64), dimension(:,:,:), allocatable :: v_ex
  real(real64), allocatable, dimension(:) :: shells
  
end module shared_data