fleur_help.F90 2.53 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:"
Daniel Wortmann's avatar
Daniel Wortmann committed
45 46 47
#ifdef CPP_GPU
    CALL print_argument("-gpu")
#endif
48 49 50 51 52 53 54 55
    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")
56 57
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"Options useful for debugging:"
58 59 60
    CALL print_argument("-warn_only")
    CALL print_argument("-trace")
    CALL print_argument("-debugtime")
61 62 63 64
#ifdef CPP_HDF
    WRITE(*,'(a)')""
    WRITE(*,'(a)')"HDF density file relevant options:"

65 66 67 68
    CALL print_argument("-no_cdn_hdf")
    CALL print_argument("-last_extra")
    CALL print_argument("-sd")
    CALL print_argument("-delden")
Daniel Wortmann's avatar
Daniel Wortmann committed
69 70
#endif
    
71 72 73 74 75 76
    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