LCOV - code coverage report
Current view: top level - io - writeOutHeader.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 18 22 81.8 %
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             : MODULE m_writeOutHeader
       8             : 
       9             : CONTAINS
      10             : 
      11          38 :   SUBROUTINE writeOutHeader()
      12             :     USE m_juDFT
      13             :     USE m_utility
      14             :     USE m_constants
      15             :     USE m_compile_descr
      16             :     IMPLICIT NONE
      17             :     CHARACTER(len=9) :: cppflag(11)
      18          38 :     CHARACTER(:), ALLOCATABLE:: infostring
      19             :     INTEGER          :: i,j
      20             : 
      21          38 :     WRITE (6,*) 'This output is generated by ',version_const
      22          38 :     WRITE (6,*) '                                      * * '
      23             : #if ( defined(CPP_AIX) )
      24             :     WRITE (6,*)  '                                    * \\:/ *'
      25             : #else
      26          38 :     WRITE (6,*)  '                                    * \:/ *'
      27             : #endif
      28          38 :     WRITE (6,*)  '                                    *  |  *'
      29          38 :     WRITE (6,*)  '                                      * *  '
      30          38 :     WRITE (6,*) 
      31             : 
      32             :     CALL get_compile_desc_string(infostring)
      33          38 :     write(6,'(a)') infostring
      34          38 :     CALL getComputerArchitectures(cppflag,i) ! First determine the architecture
      35          38 :     IF (i.GT.1) THEN 
      36           0 :        WRITE (6,*) 'You set compiler flags for more than one'
      37           0 :        WRITE (6,*) 'architecture: ', (cppflag(j),j=1,i)
      38           0 :        WRITE (6,*) 'Define only one system architecture! '
      39             :        CALL juDFT_error("Define only one system architecture! "&
      40           0 :             &         ,calledby ="dimens")
      41             :     ENDIF
      42          38 :     IF (i == 0) THEN
      43          38 :        WRITE (6,*) 'No system architecture specified in Makefile'
      44          38 :        cppflag(1) = 'GEN'
      45             :     ENDIF
      46             :     !
      47             :     !       check for double precision etc.
      48             :     !
      49             : 
      50          38 :     CALL getAdditionalCompilationFlags(cppflag,i)
      51          38 :     IF (i.GT.0) THEN
      52          38 :        WRITE (6,*) 'Additional flags are: ', (cppflag(j),j=1,i)
      53             :     ENDIF
      54             : 
      55          38 :   END SUBROUTINE writeOutHeader
      56             : 
      57             : END MODULE m_writeOutHeader

Generated by: LCOV version 1.13