Build and parse test cli.
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='off_test_load_file_parameters', &
authors='S. Zaghi', &
help='Usage: ', &
examples=["off_test_load_file_parameters --parameters sim_parameters.ini"], &
epilog=new_line('a')//"all done")
call cli%add(switch='--parameters-file', &
switch_ab='-par', &
help='name of simulation parameters file', &
required=.true., &
act='store')
call cli%add(switch='--go-on-fail', &
switch_ab='-gof', &
help='go-on if load fails somewhere', &
required=.false., &
def='.false.', &
act='store')
call cli%parse(error=error) ; if (error/=0) stop
call cli%get(switch='--parameters-file', val=file_parameters)
call cli%get(switch='--go-on-fail', val=go_on_fail)
endsubroutine cli_parse