set_command_line_interface Subroutine

   subroutine set_command_line_interface(self)
   !< Set command line interface.
   class(simulation_object), intent(inout) :: self  !< simulation data.
   integer(I4P)                            :: error !< Error trapping flag.

   call self%cli%init(progname='off',                                             &
                      version='v0.0.1',                                           &
                      authors='G. Rossi, S. Zaghi',                               &
                      help='Usage: ',                                             &
                      description='CNR-INSEAN CFD code',                          &
                      examples=["off --parameters sim_parameters.ini --verbose"], &
                      epilog=new_line('a')//"all done")

   call self%cli%add(switch='--parameters_file',                &
                     switch_ab='-par',                          &
                     help='name of simulation parameters file', &
                     required=.false.,                          &
                     act='store',                               &
                     def='simulation_parameters.ini',           &
                     error=error)
   if (error/=0) stop

   call self%cli%add(switch='--go-on-fail',                           &
                     switch_ab='-gof',                                &
                     help='go-on if parameters load fails somewhere', &
                     required=.false.,                                &
                     def='.false.',                                   &
                     act='store')
   if (error/=0) stop

   call self%cli%add(switch='--verbose',           &
                     help='enable verbose output', &
                     required=.false.,             &
                     act='store_true',             &
                     def='.false.',                &
                     error=error)
   if (error/=0) stop
   endsubroutine set_command_line_interface