cli_parse Subroutine

  1. finer_test_load.f90
  2. finer_test_load
  3. cli_parse

subroutine cli_parse()

Build and parse test cli.

Arguments

None

Called by

proc~~cli_parse~~CalledByGraph proc~cli_parse cli_parse program~finer_test_load finer_test_load program~finer_test_load->proc~cli_parse

Contents

Source Code

cli_parse

Source Code

  subroutine cli_parse()
  !< Build and parse test cli.
  type(command_line_interface) :: cli   !< Test command line interface.
  integer(I4P)                 :: error !< Error trapping flag.

  call cli%init(progname='finer_test_load',                  &
                authors='S. Zaghi',                          &
                help='Usage: ',                              &
                examples=["finer_test_load --ini test.ini"], &
                epilog=new_line('a')//"all done")

  call cli%add(switch='--ini',          &
               switch_ab='-i',          &
               help='name of ini file', &
               required=.true.,         &
               act='store')

  call cli%parse(error=error) ; if (error/=0) stop

  call cli%get(switch='--ini', val=file_name)
  endsubroutine cli_parse