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