inpgen_help.f90 1.54 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
!--------------------------------------------------------------------------------
! Copyright (c) 2017 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_inpgen_help
  IMPLICIT NONE
CONTAINS
  SUBROUTINE inpgen_help()
    USE m_compile_descr
    USE m_constants
    USE m_juDFT
13
    USE m_fleur_arguments
14
    IMPLICIT NONE
15
    CHARACTER(:), ALLOCATABLE:: infostring
16 17

    PRINT *,"     Welcome to FLEUR - inpgen   (www.flapw.de)   "
18
    PRINT *,"     MaX-Release 3.0          (www.max-centre.eu)"
19

20
    IF (.NOT. juDFT_was_argument("-h")) RETURN
21 22 23

    !now print version info and help on command line arguments:
    CALL get_compile_desc_string(infostring)
24
    WRITE(*,'(a)') infostring
25 26 27 28 29
    WRITE(*,'(a)')
    WRITE(*,'(a)')"------------------------------------------------------"
    WRITE(*,'(a)')"inpgen usage info:"
    WRITE(*,'(a)')"The following command line options are known:"
    WRITE(*,'(a)')""
30 31 32 33 34 35
    CALL print_argument("-old")
    CALL print_argument("-genEnpara")
    CALL print_argument("-explicit")
    CALL print_argument("-electronConfig")
    CALL print_argument("-fast_defaults")
    CALL print_argument("-h")
36 37 38 39 40 41
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Please check the documentation on www.flapw.de for more details"

    CALL juDFT_error("help was written")
  END SUBROUTINE inpgen_help
END MODULE m_inpgen_help