Commit ba778993 authored by Matthias Redies's avatar Matthias Redies

fix format for kpts

parent 83a0f624
......@@ -5,9 +5,9 @@
!--------------------------------------------------------------------------------
MODULE m_types_kpts
INTEGER,PARAMETER:: kpts_by_number=1
INTEGER,PARAMETER:: kpts_by_mesh =2
INTEGER,PARAMETER:: kpts_by_list =3
INTEGER, PARAMETER:: kpts_by_number = 1
INTEGER, PARAMETER:: kpts_by_mesh = 2
INTEGER, PARAMETER:: kpts_by_list = 3
TYPE t_kpts
INTEGER :: specificationType
......@@ -18,23 +18,22 @@ MODULE m_types_kpts
REAL :: posScale
LOGICAL :: l_gamma
!(3,nkpt) k-vectors internal units
REAL,ALLOCATABLE :: bk(:,:)
REAL, ALLOCATABLE :: bk(:, :)
!(nkpts) weights
REAL,ALLOCATABLE :: wtkpt(:)
REAL, ALLOCATABLE :: wtkpt(:)
INTEGER :: nkptf = 0!<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(:)
REAL, ALLOCATABLE :: bkf(:, :)
INTEGER, ALLOCATABLE :: bkp(:)
INTEGER, ALLOCATABLE :: bksym(:)
INTEGER :: numSpecialPoints
INTEGER, ALLOCATABLE :: specialPointIndices(:)
CHARACTER(LEN=50),ALLOCATABLE :: specialPointNames(:)
REAL ,ALLOCATABLE :: specialPoints(:,:)
INTEGER,ALLOCATABLE :: ntetra(:,:)
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))
CHARACTER(LEN=50), ALLOCATABLE :: specialPointNames(:)
REAL, ALLOCATABLE :: specialPoints(:, :)
INTEGER, ALLOCATABLE :: ntetra(:, :)
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))
ENDTYPE t_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