mirror of https://gitlab.com/QEF/q-e.git
39 lines
1.8 KiB
Fortran
39 lines
1.8 KiB
Fortran
!
|
|
! Copyright (C) 2003 PWSCF group
|
|
! 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 .
|
|
!
|
|
#include "f_defs.h"
|
|
!
|
|
module wannier
|
|
USE kinds, only : DP
|
|
!integer, allocatable :: nnb(:) ! #b (ik)
|
|
integer :: nnb ! #b
|
|
integer, allocatable :: kpb(:,:) ! k+b (ik,ib)
|
|
integer, allocatable :: g_kpb(:,:,:) ! G_k+b (ipol,ik,ib)
|
|
integer, allocatable :: ig_(:,:) ! G_k+b (ipol,ik,ib)
|
|
integer, allocatable :: lw(:,:), mw(:,:) ! l and m of wannier (16,n_wannier)
|
|
integer, allocatable :: num_sph(:) ! num. func. in lin. comb., (n_wannier)
|
|
logical, allocatable :: excluded_band(:)
|
|
integer :: iun_nnkp, iun_mmn, iun_amn, iun_band, iun_plot, nnbx, n_wannier, nexband
|
|
complex(DP), allocatable :: gf(:,:) ! guding_function(npwx,n_wannier)
|
|
integer :: ispinw, ikstart, ikstop, iknum
|
|
character(LEN=15) :: wan_mode ! running mode
|
|
logical :: logwann, wvfn_formatted, write_unk, &
|
|
write_amn, write_mmn
|
|
! input data from nnkp file
|
|
real(DP), allocatable :: center_w(:,:) ! center_w(3,n_wannier)
|
|
integer, allocatable :: l_w(:), mr_w(:) ! l and mr of wannier (n_wannier) as from table 3.1,3.2 of spec.
|
|
integer, allocatable :: r_w(:) ! index of radial function (n_wannier) as from table 3.3 of spec.
|
|
real(DP), allocatable :: xaxis(:,:),zaxis(:,:) ! xaxis and zaxis(3,n_wannier)
|
|
real(DP), allocatable :: alpha_w(:) ! alpha_w(n_wannier) ( called zona in wannier spec)
|
|
!
|
|
real(DP), allocatable :: csph(:,:) ! expansion coefficients of gf on QE ylm function (16,n_wannier)
|
|
CHARACTER(len=256) :: seedname = 'wannier' ! prepended to file names in wannier90
|
|
end module wannier
|
|
!
|
|
|
|
|