29#include "./base/base_uses.f90"
37 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'global_types'
39 INTEGER,
PARAMETER :: SILENT = 0, &
67 INTEGER :: ref_count = 0
69 CHARACTER(LEN=default_string_length) :: diag_library =
"ScaLAPACK"
70 CHARACTER(LEN=default_string_length) :: cholesky_library =
"ScaLAPACK"
71 CHARACTER(LEN=default_string_length) :: default_fft_library =
"FFTSG"
72 CHARACTER(LEN=default_path_length) :: fftw_wisdom_file_name =
"/etc/fftw/wisdom"
73 CHARACTER(LEN=default_string_length) :: default_dgemm_library =
"BLAS"
75 INTEGER :: fft_pool_scratch_limit = 0
76 INTEGER :: fftw_plan_type = 0
78 INTEGER :: prog_name_id = 0
79 INTEGER :: run_type_id = 0
82 INTEGER :: elpa_neigvec_min = 0
83 LOGICAL :: elpa_qr = .false.
84 LOGICAL :: elpa_print = .false.
85 LOGICAL :: elpa_qr_unsafe = .false.
86 INTEGER :: dlaf_neigvec_min = 0
87 INTEGER :: dlaf_cholesky_n_min = 0
88 LOGICAL :: blacs_repeatable = .false.
89 REAL(kind=
dp) :: cp2k_start_time = 0.0_dp
90 REAL(kind=
dp) :: cp2k_target_time = huge(0.0_dp)
93 REAL(kind=
dp) :: eps_check_diag = -1.0_dp
107 cpassert(.NOT.
ASSOCIATED(globenv))
109 ALLOCATE (globenv%gaussian_rng_stream)
110 globenv%ref_count = 1
123 cpassert(
ASSOCIATED(globenv))
124 cpassert(globenv%ref_count > 0)
125 globenv%ref_count = globenv%ref_count + 1
137 IF (
ASSOCIATED(globenv))
THEN
138 cpassert(globenv%ref_count > 0)
139 globenv%ref_count = globenv%ref_count - 1
140 IF (globenv%ref_count == 0)
THEN
141 IF (
ALLOCATED(globenv%gaussian_rng_stream)) &
142 DEALLOCATE (globenv%gaussian_rng_stream)
methods related to the blacs parallel environment
integer, parameter, public blacs_grid_square
Define type storing the global information of a run. Keep the amount of stored data small....
subroutine, public globenv_retain(globenv)
Retains the global environment globenv.
subroutine, public globenv_create(globenv)
Creates the global environment globenv.
subroutine, public globenv_release(globenv)
Releases the global environment globenv.
Defines the basic variable types.
integer, parameter, public dp
integer, parameter, public default_string_length
integer, parameter, public default_path_length
Machine interface based on Fortran 2003 and POSIX.
real(kind=dp) function, public m_walltime()
returns time from a real-time clock, protected against rolling early/easily
Parallel (pseudo)random number generator (RNG) for multiple streams and substreams of random numbers.
contains the initially parsed file and the initial parallel environment