compile_descr.F90 1.9 KB
Newer Older
1 2 3 4 5 6 7 8 9
!--------------------------------------------------------------------------------
! Copyright (c) 2016 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.
!--------------------------------------------------------------------------------

MODULE m_compile_descr

  IMPLICIT NONE
Daniel Wortmann's avatar
Daniel Wortmann committed
10

11
  CONTAINS
Daniel Wortmann's avatar
Daniel Wortmann committed
12 13 14 15 16 17 18

  SUBROUTINE get_compile_desc_string(info)
    USE m_constants
    IMPLICIT NONE
    CHARACTER(LEN=*),INTENT(OUT):: info
    
    CHARACTER(len=50)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch
19 20
    CHARACTER(len=50)::compile_flags,link_flags
    CALL  get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
Daniel Wortmann's avatar
Daniel Wortmann committed
21 22 23 24 25 26 27 28 29
    info=new_line("a")// &
    "This is FLEUR version: "//trim(version_const)//new_line("a")// &
    "FLEUR was compiled:"//new_line("a")// &
    "   at: "//TRIM(compile_date)//new_line("a")// &
    "   by: "//TRIM(compile_user)//new_line("a")// &
    "   on: "//TRIM(compile_host)//new_line("a")// &
    "Its git version is:"//new_line("a")// &
    "   described by: "//TRIM(gitdesc)//new_line("a")// &
    "   from branch:  "//trim(gitbranch)//new_line("a")// &
30 31 32 33
    "   with hash:    "//TRIM(githash)//new_LINE("a")//&
    "Compiler info:"//new_LINE("a")// &
    "   flags     :  "//TRIM(compile_flags)//new_LINE("a")//&
    "   link flags:  "//TRIM(link_flags)
Daniel Wortmann's avatar
Daniel Wortmann committed
34 35 36
  end SUBROUTINE get_compile_desc_string


37
  SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags)
38
    IMPLICIT NONE
39
    CHARACTER(LEN=*),INTENT(OUT)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch,compile_flags,link_flags
40

Daniel Wortmann's avatar
Daniel Wortmann committed
41
!This file is created by cmake at time of configuration
42 43 44 45 46
#include "compileinfo.h"
    
  END subroutine get_compile_desc
end MODULE m_compile_descr