Commit ba778993 authored by Matthias Redies's avatar Matthias Redies

fix format for kpts

parent 83a0f624
...@@ -5,36 +5,35 @@ ...@@ -5,36 +5,35 @@
!-------------------------------------------------------------------------------- !--------------------------------------------------------------------------------
MODULE m_types_kpts MODULE m_types_kpts
INTEGER,PARAMETER:: kpts_by_number=1 INTEGER, PARAMETER:: kpts_by_number = 1
INTEGER,PARAMETER:: kpts_by_mesh =2 INTEGER, PARAMETER:: kpts_by_mesh = 2
INTEGER,PARAMETER:: kpts_by_list =3 INTEGER, PARAMETER:: kpts_by_list = 3
TYPE t_kpts TYPE t_kpts
INTEGER :: specificationType INTEGER :: specificationType
!no !no
INTEGER :: nkpt INTEGER :: nkpt
INTEGER :: ntet INTEGER :: ntet
REAL :: posScale REAL :: posScale
LOGICAL :: l_gamma LOGICAL :: l_gamma
!(3,nkpt) k-vectors internal units !(3,nkpt) k-vectors internal units
REAL,ALLOCATABLE :: bk(:,:) REAL, ALLOCATABLE :: bk(:, :)
!(nkpts) weights !(nkpts) weights
REAL,ALLOCATABLE :: wtkpt(:) REAL, ALLOCATABLE :: wtkpt(:)
INTEGER :: nkptf = 0!<k-vectors in full BZ INTEGER :: nkptf = 0!<k-vectors in full BZ
INTEGER :: nkpt3(3) INTEGER :: nkpt3(3)
REAL :: kPointDensity(3) ! only used if k point set is defined as density REAL :: kPointDensity(3) ! only used if k point set is defined as density
REAL ,ALLOCATABLE :: bkf(:,:) REAL, ALLOCATABLE :: bkf(:, :)
INTEGER,ALLOCATABLE :: bkp(:) INTEGER, ALLOCATABLE :: bkp(:)
INTEGER,ALLOCATABLE :: bksym(:) INTEGER, ALLOCATABLE :: bksym(:)
INTEGER :: numSpecialPoints INTEGER :: numSpecialPoints
INTEGER, ALLOCATABLE :: specialPointIndices(:) INTEGER, ALLOCATABLE :: specialPointIndices(:)
CHARACTER(LEN=50),ALLOCATABLE :: specialPointNames(:) CHARACTER(LEN=50), ALLOCATABLE :: specialPointNames(:)
REAL ,ALLOCATABLE :: specialPoints(:,:) REAL, ALLOCATABLE :: specialPoints(:, :)
INTEGER,ALLOCATABLE :: ntetra(:,:) INTEGER, ALLOCATABLE :: ntetra(:, :)
REAL ,ALLOCATABLE :: voltet(:) REAL, ALLOCATABLE :: voltet(:)
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),k_original(x,y,z)) 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),k_original(x,y,z))
ENDTYPE t_kpts ENDTYPE t_kpts
END MODULE m_types_kpts END MODULE m_types_kpts
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment