LCOV - code coverage report
Current view: top level - main - fleur_info.f90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 2 10 20.0 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2017 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       8             : !!!
       9             : !!! This module realizes the Fleur info mode: It prints out some information
      10             : !!! about the charge density file and then ends the program.
      11             : !!!
      12             : !!!                             GM'17
      13             : !!!
      14             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      15             : 
      16             : MODULE m_fleur_info
      17             : 
      18             :    IMPLICIT NONE
      19             : 
      20             :    CONTAINS
      21             : 
      22          38 :    SUBROUTINE fleur_info(kpts)
      23             : 
      24             :       USE m_juDFT
      25             :       USE m_cdn_io
      26             :       USE m_setupMPI
      27             :       USE m_types
      28             : 
      29             :       IMPLICIT NONE
      30             : 
      31             :       TYPE(t_kpts), INTENT(IN)     :: kpts
      32             : 
      33             :       LOGICAL       :: l_exist
      34             : 
      35          38 :       IF (.NOT.juDFT_was_argument("-info")) RETURN
      36             : 
      37           0 :       WRITE(*,*) 'Fleur info mode'
      38           0 :       WRITE(*,*) '================================================='
      39           0 :       WRITE(*,*) ''
      40           0 :       CALL priv_dist_info(kpts%nkpt)
      41           0 :       WRITE(*,*) ''
      42           0 :       CALL printDensityFileInfo()
      43           0 :       WRITE(*,*) '================================================='
      44           0 :       CALL juDFT_end("Fleur info output completed")
      45             :    END SUBROUTINE fleur_info
      46             : 
      47             : END MODULE m_fleur_info

Generated by: LCOV version 1.13