inpgen_help.f90 2.39 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_check_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 21 22 23 24 25 26 27 28
    
    CALL new_argument(0,"-genEnpara","Generate an 'enpara' file for the energy parameters","") 
    CALL new_argument(0,"-explicit","Write out k-point list, symmetry operations, and optional input to inp.xml","") 
    CALL new_argument(0,"-kpts_gw","add alternative k point set for GW in all outputs for the XML input file","")
    CALL new_argument(0,"-noco","write out noco parameters into inp.xml","")
    CALL new_argument(0,"-electronConfig","explicitely write the electron configuration into inp.xml","")
    CALL new_argument(0,"-fast_defaults","generate more aggressive (and less stable) input parameters for faster calculations","")
    CALL new_argument(0,"-h","Print this help message","")
    
    IF (.NOT.check_arguments()) CALL judft_warn("Invalid command line arguments",hint="Use -h option to see valid choices")
29
    IF (.NOT. juDFT_was_argument("-h")) RETURN
30 31 32

    !now print version info and help on command line arguments:
    CALL get_compile_desc_string(infostring)
33
    WRITE(*,'(a)') infostring
34 35 36 37 38
    WRITE(*,'(a)')
    WRITE(*,'(a)')"------------------------------------------------------"
    WRITE(*,'(a)')"inpgen usage info:"
    WRITE(*,'(a)')"The following command line options are known:"
    WRITE(*,'(a)')""
39 40
    CALL print_argument("-genEnpara")
    CALL print_argument("-explicit")
41
    CALL print_argument("-noco")
42 43
    CALL print_argument("-electronConfig")
    CALL print_argument("-fast_defaults")
Gregor Michalicek's avatar
Gregor Michalicek committed
44
    CALL print_argument("-kpts_gw")
45
    CALL print_argument("-h")
46 47 48 49 50 51
    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