2004-04-28 18:25:36 +08:00
|
|
|
!
|
2009-08-01 22:26:46 +08:00
|
|
|
! Copyright (C) 2004-2007 Quantum ESPRESSO group
|
2004-04-28 18:25:36 +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 .
|
|
|
|
!
|
|
|
|
!--------------------------------------------------------------------------
|
|
|
|
!
|
|
|
|
MODULE atom
|
|
|
|
!
|
|
|
|
! ... The variables needed to describe the atoms and related quantities
|
|
|
|
!
|
2007-10-24 23:36:52 +08:00
|
|
|
USE radial_grids, ONLY : radial_grid_type
|
2004-04-28 18:25:36 +08:00
|
|
|
!
|
|
|
|
SAVE
|
|
|
|
!
|
2008-04-27 16:58:55 +08:00
|
|
|
type(radial_grid_type), allocatable, target :: &
|
|
|
|
rgrid(:) ! the information on atomic radial grids.
|
|
|
|
! NB: some of the subsequent data are therefore redundant
|
|
|
|
! and will be eliminated in due course asap
|
|
|
|
INTEGER, ALLOCATABLE :: &
|
|
|
|
msh(:) ! the point at rcut
|
2004-04-28 18:25:36 +08:00
|
|
|
!
|
|
|
|
END MODULE atom
|