fleur_help.F90 2.48 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
!--------------------------------------------------------------------------------
! 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_fleur_help
  IMPLICIT NONE

CONTAINS
  SUBROUTINE fleur_help()
    USE m_compile_descr
    USE m_constants
    USE m_juDFT
14
    USE m_fleur_arguments
15
    IMPLICIT NONE
16
 
17 18 19 20 21
    CHARACTER(LEN=500):: infostring

    PRINT *,"     Welcome to FLEUR        (www.flapw.de)   "
    PRINT *,"     MaX-Release 2.1       (www.max-centre.eu)"

22 23
    IF (.NOT.check_arguments()) CALL judft_warn("Invalid command line arguments",hint="Use -h option to see valid choices")
    
24
    
25
    IF (.NOT. judft_was_argument("-h")) RETURN
26 27 28 29 30 31 32 33 34 35

    !now print version info and help on command line arguments:
    CALL get_compile_desc_string(infostring)
    WRITE(*,'(a500)') infostring
    WRITE(*,'(a)')
    WRITE(*,'(a)')"------------------------------------------------------"
    WRITE(*,'(a)')"Usage info:"
    WRITE(*,'(a)')"The following command line options are known:"
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Control the input:"
36 37
    CALL print_argument("-toXML")
    CALL print_argument("-xmlXpath")
38 39
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Output options:"
40 41 42
    CALL print_argument("-no_out")
    CALL print_argument("-gen_enpara")
    CALL print_argument("-h")
43 44
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Control FLEUR job:"
45 46 47 48 49 50 51 52
    CALL print_argument("-check")
    CALL print_argument("-info")
    CALL print_argument("-wtime")
    CALL print_argument("-j")
    CALL print_argument("-f")
    CALL print_argument("-n_min_size")
    CALL print_argument("-diag")
    CALL print_argument("-eig")
53 54
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Options useful for debugging:"
55 56 57
    CALL print_argument("-warn_only")
    CALL print_argument("-trace")
    CALL print_argument("-debugtime")
58 59 60 61
#ifdef CPP_HDF
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"HDF density file relevant options:"

62 63 64 65
    CALL print_argument("-no_cdn_hdf")
    CALL print_argument("-last_extra")
    CALL print_argument("-sd")
    CALL print_argument("-delden")
66 67 68 69 70 71 72
#endif  
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Please check the documentation on www.flapw.de for more details."

    CALL juDFT_end("",l_endXML=.FALSE.) !No message so do a not print more on exit
  END SUBROUTINE fleur_help
END MODULE m_fleur_help