cli_set_program Subroutine

   subroutine cli_set_program(this, name, summary)
      !! Name and one-line description, used by `help_text`.
      class(cli_t), intent(inout) :: this
      character(len=*), intent(in) :: name
         !! Program name as it should appear in the usage line.
      character(len=*), intent(in) :: summary
         !! One-line description of what the program does.

      this%program_name = name
      this%summary = summary
   end subroutine cli_set_program