types_kpts.f90 1.52 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
!--------------------------------------------------------------------------------
! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
! This file is part of FLEUR and available as free software under the conditions
! of the MIT license as expressed in the LICENSE file in more detail.
!--------------------------------------------------------------------------------

MODULE m_types_kpts

  
  TYPE t_kpts
     INTEGER :: specificationType
     !no
     INTEGER :: nkpt
     INTEGER :: ntet
     REAL    :: posScale
     LOGICAL :: l_gamma
     !(3,nkpt) k-vectors internal units
     REAL,ALLOCATABLE ::bk(:,:)
     !(nkpts) weights
     REAL,ALLOCATABLE ::wtkpt(:)
     INTEGER               ::  nkptf !<k-vectors in full BZ
     INTEGER               ::  nkpt3(3)
     REAL                  ::  kPointDensity(3) ! only used if k point set is defined as density
     REAL   ,ALLOCATABLE   ::  bkf(:,:)
     INTEGER,ALLOCATABLE   ::  bkp(:)
     INTEGER,ALLOCATABLE   ::  bksym(:)
     INTEGER                       :: numSpecialPoints
28
     INTEGER, ALLOCATABLE          :: specialPointIndices(:)
29 30 31 32
     CHARACTER(LEN=50),ALLOCATABLE :: specialPointNames(:)
     REAL   ,ALLOCATABLE           :: specialPoints(:,:)
     INTEGER,ALLOCATABLE           :: ntetra(:,:)
     REAL   ,ALLOCATABLE           :: voltet(:)
33
     REAL   ,ALLOCATABLE           :: sc_list(:,:) !list for all information about folding of bandstructure (need for unfoldBandKPTS)((k(x,y,z),K(x,y,z),m(g1,g2,g3)),(nkpt))
34 35 36 37
  ENDTYPE t_kpts

 
END MODULE m_types_kpts