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