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_grid', &
authors='S. Zaghi', &
help='Usage: ', &
examples=["off_test_save_load_file_grid --grid-basename grid"], &
epilog=new_line('a')//"all done")
call cli%add(switch='--grid-basename', &
switch_ab='-g', &
help='basename of grid file', &
required=.false., &
def='grid', &
act='store')
call cli%parse(error=error) ; if (error/=0) stop
call cli%get(switch='--grid-basename', val=file_basename)
endsubroutine cli_parse