IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

types_dos.f90 1.99 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
!--------------------------------------------------------------------------------
! Copyright (c) 2018 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_dos

IMPLICIT NONE

PRIVATE

   TYPE t_dos
14
15
      INTEGER, ALLOCATABLE :: jsym(:,:,:)
      INTEGER, ALLOCATABLE :: ksym(:,:,:)
16
      REAL,    ALLOCATABLE :: qis(:,:,:)
17
      REAL,    ALLOCATABLE :: qal(:,:,:,:,:)
18
19
      REAL,    ALLOCATABLE :: qvac(:,:,:,:)
      REAL,    ALLOCATABLE :: qvlay(:,:,:,:,:)
20
      COMPLEX, ALLOCATABLE :: qstars(:,:,:,:,:,:)
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

      CONTAINS
         PROCEDURE,PASS :: init => dos_init
   END TYPE t_dos

PUBLIC t_dos

CONTAINS

SUBROUTINE dos_init(thisDOS,input,atoms,dimension,kpts,vacuum)

   USE m_types_setup
   USE m_types_kpts

   IMPLICIT NONE

   CLASS(t_dos),           INTENT(INOUT) :: thisDOS
   TYPE(t_input),          INTENT(IN)    :: input
   TYPE(t_atoms),          INTENT(IN)    :: atoms
   TYPE(t_dimension),      INTENT(IN)    :: dimension
   TYPE(t_kpts),           INTENT(IN)    :: kpts
   TYPE(t_vacuum),         INTENT(IN)    :: vacuum

44
45
   ALLOCATE(thisDOS%jsym(dimension%neigd,kpts%nkpt,input%jspins))
   ALLOCATE(thisDOS%ksym(dimension%neigd,kpts%nkpt,input%jspins))
46
   ALLOCATE(thisDOS%qis(dimension%neigd,kpts%nkpt,input%jspins))
47
   ALLOCATE(thisDOS%qal(0:3,atoms%ntype,dimension%neigd,kpts%nkpt,input%jspins))
48
49
   ALLOCATE(thisDOS%qvac(dimension%neigd,2,kpts%nkpt,input%jspins))
   ALLOCATE(thisDOS%qvlay(dimension%neigd,vacuum%layerd,2,kpts%nkpt,input%jspins))
50
   ALLOCATE(thisDOS%qstars(vacuum%nstars,dimension%neigd,vacuum%layerd,2,kpts%nkpt,input%jspins))
51

52
53
   thisDOS%jsym = 0
   thisDOS%ksym = 0
54
55
56
57
58
59
60
61
62
   thisDOS%qis = 0.0
   thisDOS%qal = 0.0
   thisDOS%qvac = 0.0
   thisDOS%qvlay = 0.0
   thisDOS%qstars = CMPLX(0.0,0.0)

END SUBROUTINE dos_init

END MODULE m_types_dos