Commit 570512bb authored by Matthias Redies's avatar Matthias Redies

most link & include lines are longer than 50 characters

parent d4cd3fdb
......@@ -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
......@@ -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:"
......
......@@ -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'
......
......@@ -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
......
......@@ -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:"
......
  • @redies: in the file io/xmlOutput.F90 I will revert your changes. It is actually important for the XML IO to have exactly 50 characters. With your changes I obtain The error "Fortran runtime error: Different CHARACTER lengths (19/6) in array constructor". We decided a long time ago to cut the output after 50 characters, because otherwise it would not be readable anyway.

    So: There is an array of these strings and therefore they cannot have different lengths.

    The error appears in line 90 of xmlOutput.F90. With gfortran and debugging options.

    Edited by Gregor Michalicek
  • Change of plan: We will discuss this tomorrow and then probably revert the whole commit. The changes seem to depend on each other.

  • I committed a quick fix for this issue in commit 08859e6c.

Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment