fleur_info.f90 1.4 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
!--------------------------------------------------------------------------------
! Copyright (c) 2017 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.
!--------------------------------------------------------------------------------

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!
!!! This module realizes the Fleur info mode: It prints out some information
!!! about the charge density file and then ends the program.
!!!
!!!                             GM'17
!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

MODULE m_fleur_info

   IMPLICIT NONE

   CONTAINS

22
   SUBROUTINE fleur_info(kpts)
23
24
25

      USE m_juDFT
      USE m_cdn_io
26
27
      USE m_setupMPI
      USE m_types
28
29
30

      IMPLICIT NONE

31
32
      TYPE(t_kpts), INTENT(IN)     :: kpts

33
34
35
36
37
38
39
      LOGICAL       :: l_exist

      IF (.NOT.juDFT_was_argument("-info")) RETURN

      WRITE(*,*) 'Fleur info mode'
      WRITE(*,*) '================================================='
      WRITE(*,*) ''
40
41
      CALL priv_dist_info(kpts%nkpt)
      WRITE(*,*) ''
42
43
      CALL printDensityFileInfo()
      WRITE(*,*) '================================================='
44
      CALL juDFT_end("Fleur info output completed")
45
46
47
   END SUBROUTINE fleur_info

END MODULE m_fleur_info