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