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_save_load_file_parameters', &
authors='S. Zaghi', &
help='Usage: ', &
examples=["off_test_save_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%parse(error=error) ; if (error/=0) stop
call cli%get(switch='--parameters-file', val=file_parameters)
endsubroutine cli_parse