Parse command line interface.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(simulation_object), | intent(inout) | :: | self | simulation data. |
subroutine parse_command_line_interface(self)
!< Parse command line interface.
class(simulation_object), intent(inout) :: self !< simulation data.
integer(I4P) :: error !< Error trapping flag.
call self%set_command_line_interface
call self%cli%parse(error=error) ; if (error/=0) stop
call self%cli%get(switch='--parameters_file', val=self%file_parameters, error=error) ; if (error/=0) stop
call self%cli%get(switch='--go-on-fail', val=self%go_on_fail, error=error) ; if (error/=0) stop
call self%cli%get(switch='--verbose', val=self%is_output_verbose, error=error) ; if (error/=0) stop
self%is_cli_parsed = .true.
endsubroutine parse_command_line_interface