2003-04-09 06:36:18 +08:00
|
|
|
!
|
2015-05-07 00:45:50 +08:00
|
|
|
! Copyright (C) 2006-2015 Quantum ESPRESSO group
|
2003-04-09 06:36:18 +08:00
|
|
|
! This file is distributed under the terms of the
|
|
|
|
! GNU General Public License. See the file `License'
|
|
|
|
! in the root directory of the present distribution,
|
|
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
|
|
!
|
|
|
|
!----------------------------------------------------------------------
|
2015-10-29 17:08:16 +08:00
|
|
|
! FFT data Module.
|
|
|
|
! Written by Carlo Cavazzoni
|
2003-04-09 06:36:18 +08:00
|
|
|
!----------------------------------------------------------------------
|
|
|
|
!
|
|
|
|
!=----------------------------------------------------------------------=!
|
2007-09-17 17:35:37 +08:00
|
|
|
MODULE fft_base
|
2003-04-09 06:36:18 +08:00
|
|
|
!=----------------------------------------------------------------------=!
|
|
|
|
|
2004-06-17 17:29:03 +08:00
|
|
|
USE parallel_include
|
2003-04-09 06:36:18 +08:00
|
|
|
|
|
|
|
USE fft_types, ONLY: fft_dlay_descriptor
|
|
|
|
|
2004-03-01 23:38:01 +08:00
|
|
|
IMPLICIT NONE
|
2007-12-31 19:00:25 +08:00
|
|
|
|
|
|
|
! ... data structure containing all information
|
2010-02-22 16:13:22 +08:00
|
|
|
! ... about fft data distribution for a given
|
2007-12-31 19:00:25 +08:00
|
|
|
! ... potential grid, and its wave functions sub-grid.
|
2010-02-22 16:13:22 +08:00
|
|
|
|
2006-02-20 07:29:28 +08:00
|
|
|
TYPE ( fft_dlay_descriptor ) :: dfftp ! descriptor for dense grid
|
2011-07-15 06:14:15 +08:00
|
|
|
! Dimensions of the 3D real and reciprocal space FFT grid
|
|
|
|
! relative to the charge density and potential ("dense" grid)
|
2006-02-20 07:29:28 +08:00
|
|
|
TYPE ( fft_dlay_descriptor ) :: dffts ! descriptor for smooth grid
|
2011-07-17 01:14:59 +08:00
|
|
|
! Dimensions of the 3D real and reciprocal space
|
2011-07-15 06:14:15 +08:00
|
|
|
! FFT grid relative to the smooth part of the charge density
|
|
|
|
! (may differ from the full charge density grid for USPP )
|
2006-02-20 07:29:28 +08:00
|
|
|
TYPE ( fft_dlay_descriptor ) :: dfftb ! descriptor for box grids
|
2011-07-17 01:14:59 +08:00
|
|
|
! Dimensions of the 3D real and reciprocal space
|
|
|
|
! FFT grid relative to the "small box" computation
|
|
|
|
! of the atomic augmentation part of the
|
|
|
|
! charge density used in USPP (to speed up CPV iterations)
|
2015-10-29 17:08:16 +08:00
|
|
|
TYPE ( fft_dlay_descriptor ) :: dfft3d
|
2004-03-01 07:30:07 +08:00
|
|
|
|
2003-04-09 06:36:18 +08:00
|
|
|
SAVE
|
|
|
|
|
|
|
|
PRIVATE
|
|
|
|
|
2015-10-29 17:08:16 +08:00
|
|
|
PUBLIC :: dfftp, dffts, dfftb, dfft3d, fft_dlay_descriptor
|
2014-06-27 22:37:04 +08:00
|
|
|
|
2003-04-09 06:36:18 +08:00
|
|
|
!=----------------------------------------------------------------------=!
|
2007-09-17 17:35:37 +08:00
|
|
|
END MODULE fft_base
|
2003-04-09 06:36:18 +08:00
|
|
|
!=----------------------------------------------------------------------=!
|