compile_descr.F90 1.63 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 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

  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

    call  get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host)
    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")// &
    "   with hash:    "//TRIM(githash)
  end SUBROUTINE get_compile_desc_string


  SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host)
35
    IMPLICIT NONE
Daniel Wortmann's avatar
Daniel Wortmann committed
36
    CHARACTER(LEN=*),INTENT(OUT)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch
37

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