-
Notifications
You must be signed in to change notification settings - Fork 1
/
wannier_states_types.F
26 lines (21 loc) · 1.3 KB
/
wannier_states_types.F
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
!--------------------------------------------------------------------------------------------------!
! CP2K: A general program to perform molecular dynamics simulations !
! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
! !
! SPDX-License-Identifier: GPL-2.0-or-later !
!--------------------------------------------------------------------------------------------------!
! **************************************************************************************************
!> \brief defines the type needed for computing wannier states expectations
!> \author alin m elena
! **************************************************************************************************
MODULE wannier_states_types
USE kinds, ONLY: dp
#include "./base/base_uses.f90"
IMPLICIT NONE
PRIVATE
PUBLIC :: wannier_centres_type
TYPE wannier_centres_type
REAL(kind=dp), POINTER, DIMENSION(:) :: WannierHamDiag => NULL()
REAL(KIND=dp), POINTER, DIMENSION(:, :) :: centres => NULL()
END TYPE wannier_centres_type
END MODULE wannier_states_types