1!
2! Copyright (C) Quantum ESPRESSO group
3!
4! This file is distributed under the terms of the
5! GNU General Public License. See the file `License'
6! in the root directory of the present distribution,
7! or http://www.gnu.org/copyleft/gpl.txt .
8!
9MODULE fft_param
10
11#if defined(__MPI)
12#if defined(__MPI_MODULE)
13  USE mpi
14#else
15  INCLUDE 'mpif.h'
16#endif
17#else
18  INTEGER, PARAMETER :: MPI_COMM_WORLD =  0
19  INTEGER, PARAMETER :: MPI_COMM_NULL  = -1
20  INTEGER, PARAMETER :: MPI_COMM_SELF  = -2
21#endif
22
23  INTEGER, PARAMETER :: ndims = 10
24  !! Number of different FFT tables that the module
25  !!could keep into memory without reinitialization
26
27  INTEGER, PARAMETER :: nfftx = 2049
28  !!Max allowed fft dimension
29
30  INTEGER, PARAMETER :: DP = selected_real_kind(14,200)
31  INTEGER, PARAMETER :: stdout = 6    ! unit connected to standard output
32
33  REAL(DP), PARAMETER :: eps8  = 1.0E-8_DP
34
35END MODULE fft_param
36