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          80 :   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          80 :     CHARACTER(:), ALLOCATABLE:: infostring
      19             :     INTEGER          :: i,j
      20             : 
      21          80 :     WRITE (oUnit,*) 'This output is generated by ',version_const
      22          80 :     WRITE (oUnit,*) '                                      * * '
      23             : #if ( defined(CPP_AIX) )
      24             :     WRITE (oUnit,*)  '                                    * \\:/ *'
      25             : #else
      26          80 :     WRITE (oUnit,*)  '                                    * \:/ *'
      27             : #endif
      28          80 :     WRITE (oUnit,*)  '                                    *  |  *'
      29          80 :     WRITE (oUnit,*)  '                                      * *  '
      30          80 :     WRITE (oUnit,*) 
      31             : 
      32             :     CALL get_compile_desc_string(infostring)
      33          80 :     write(oUnit,'(a)') infostring
      34          80 :     CALL getComputerArchitectures(cppflag,i) ! First determine the architecture
      35          80 :     IF (i.GT.1) THEN 
      36           0 :        WRITE (oUnit,*) 'You set compiler flags for more than one'
      37           0 :        WRITE (oUnit,*) 'architecture: ', (cppflag(j),j=1,i)
      38           0 :        WRITE (oUnit,*) 'Define only one system architecture! '
      39             :        CALL juDFT_error("Define only one system architecture! "&
      40           0 :             &         ,calledby ="dimens")
      41             :     ENDIF
      42          80 :     IF (i == 0) THEN
      43          80 :        WRITE (oUnit,*) 'No system architecture specified in Makefile'
      44          80 :        cppflag(1) = 'GEN'
      45             :     ENDIF
      46             :     !
      47             :     !       check for double precision etc.
      48             :     !
      49             : 
      50          80 :     CALL getAdditionalCompilationFlags(cppflag,i)
      51          80 :     IF (i.GT.0) THEN
      52          80 :        WRITE (oUnit,*) 'Additional flags are: ', (cppflag(j),j=1,i)
      53             :     ENDIF
      54             : 
      55          80 :   END SUBROUTINE writeOutHeader
      56             : 
      57             : END MODULE m_writeOutHeader