diff --git a/init/compile_descr.F90 b/init/compile_descr.F90 index fa1a97a9c526103c5d8f8dfd137d1faf3d083898..c62e8e5294b60c7c68a1131e7dbb2a541f631b8c 100644 --- a/init/compile_descr.F90 +++ b/init/compile_descr.F90 @@ -6,41 +6,43 @@ MODULE m_compile_descr - IMPLICIT NONE - - CONTAINS - - 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 - CHARACTER(len=50)::compile_flags,link_flags - CALL get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags) - 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)//new_LINE("a")//& - "Compiler info:"//new_LINE("a")// & - " flags : "//TRIM(compile_flags)//new_LINE("a")//& - " link flags: "//TRIM(link_flags) - end SUBROUTINE get_compile_desc_string - - - SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags) - IMPLICIT NONE - CHARACTER(LEN=*),INTENT(OUT)::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch,compile_flags,link_flags + IMPLICIT NONE + +CONTAINS + + SUBROUTINE get_compile_desc_string(info) + USE m_constants + IMPLICIT NONE + CHARACTER(:),ALLOCATABLE,INTENT(OUT):: info + + CHARACTER(:), ALLOCATABLE::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch + CHARACTER(:), ALLOCATABLE::compile_flags,link_flags + + CALL get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags) + + 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)//new_LINE("a")//& + "Compiler info:"//new_LINE("a")// & + " flags : "//TRIM(compile_flags)//new_LINE("a")//& + " link flags: "//TRIM(link_flags) + + end SUBROUTINE get_compile_desc_string + + SUBROUTINE get_compile_desc(gitdesc,githash,gitbranch,compile_date,compile_user,compile_host,compile_flags,link_flags) + IMPLICIT NONE + CHARACTER(:),ALLOCATABLE::gitdesc,githash,compile_date,compile_user,compile_host,gitbranch,compile_flags,link_flags !This file is created by cmake at time of configuration #include "compileinfo.h" - - END subroutine get_compile_desc + + END subroutine get_compile_desc end MODULE m_compile_descr diff --git a/inpgen/inpgen_help.f90 b/inpgen/inpgen_help.f90 index 87db7d4ccfeb048aa2fc46d130055f62e8b86672..8cb9edc61e6626a339963e7f0ccfe0151c0804d6 100644 --- a/inpgen/inpgen_help.f90 +++ b/inpgen/inpgen_help.f90 @@ -12,7 +12,7 @@ CONTAINS USE m_juDFT USE m_fleur_arguments IMPLICIT NONE - CHARACTER(LEN=500):: infostring + CHARACTER(:), ALLOCATABLE:: infostring PRINT *," Welcome to FLEUR - inpgen (www.flapw.de) " PRINT *," MaX-Release 2.1 (www.max-centre.eu)" @@ -21,7 +21,7 @@ CONTAINS !now print version info and help on command line arguments: CALL get_compile_desc_string(infostring) - WRITE(*,'(a500)') infostring + WRITE(*,'(a)') infostring WRITE(*,'(a)') WRITE(*,'(a)')"------------------------------------------------------" WRITE(*,'(a)')"inpgen usage info:" diff --git a/io/writeOutHeader.F90 b/io/writeOutHeader.F90 index 120ce35a8391e03fb467e39d4e303245e7663970..e3a6206b5abd92adc4bda507adf705a3354975b0 100644 --- a/io/writeOutHeader.F90 +++ b/io/writeOutHeader.F90 @@ -15,7 +15,7 @@ CONTAINS USE m_compile_descr IMPLICIT NONE CHARACTER(len=9) :: cppflag(11) - CHARACTER(LEN=500):: infostring + CHARACTER(:), ALLOCATABLE:: infostring INTEGER :: i,j WRITE (6,*) 'This output is generated by ',version_const @@ -30,7 +30,7 @@ CONTAINS WRITE (6,*) CALL get_compile_desc_string(infostring) - write(6,'(a500)') infostring + write(6,'(a)') infostring CALL getComputerArchitectures(cppflag,i) ! First determine the architecture IF (i.GT.1) THEN WRITE (6,*) 'You set compiler flags for more than one' diff --git a/io/xmlOutput.F90 b/io/xmlOutput.F90 index ff2aee799d5d0a439c97fa750ce16c9bcd8dfa3c..99d97c1aabf8820aa317b5a69c8f8aadfe6fa06b 100644 --- a/io/xmlOutput.F90 +++ b/io/xmlOutput.F90 @@ -66,8 +66,8 @@ MODULE m_xmlOutput CHARACTER(LEN=6) :: precisionString CHARACTER(LEN=9) :: flags(11) CHARACTER(LEN=20) :: structureSpecifiers(11) - CHARACTER(LEN=50) :: gitdesc,githash,gitbranch,compile_date,compile_user,compile_host - CHARACTER(LEN=50) :: compile_flags,link_flags + CHARACTER(:), ALLOCATABLE :: gitdesc,githash,gitbranch,compile_date,compile_user,compile_host + CHARACTER(:), ALLOCATABLE :: compile_flags,link_flags CHARACTER(LEN=20) :: attributes(7) maxNumElements = 10 diff --git a/main/fleur_help.F90 b/main/fleur_help.F90 index 992dc7fb217ce3c59bec73d11c5bed6b14aaf0b1..afcfb6965eaca00c04523be4e6d545afef9948f5 100644 --- a/main/fleur_help.F90 +++ b/main/fleur_help.F90 @@ -14,7 +14,7 @@ CONTAINS USE m_fleur_arguments IMPLICIT NONE - CHARACTER(LEN=500):: infostring + CHARACTER(:), ALLOCATABLE:: infostring PRINT *," Welcome to FLEUR (www.flapw.de) " PRINT *," MaX-Release 2.1 (www.max-centre.eu)" @@ -26,7 +26,7 @@ CONTAINS !now print version info and help on command line arguments: CALL get_compile_desc_string(infostring) - WRITE(*,'(a500)') infostring + WRITE(*,'(a)') infostring WRITE(*,'(a)') WRITE(*,'(a)')"------------------------------------------------------" WRITE(*,'(a)')"Usage info:"