Sanitize defaults values.
It is necessary to sanitize the default values of non-passed, optional CLAs.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(command_line_arguments_group), | intent(inout) | :: | self |
CLAsG data. |
subroutine sanitize_defaults(self) !< Sanitize defaults values. !< !< It is necessary to *sanitize* the default values of non-passed, optional CLAs. class(command_line_arguments_group), intent(inout) :: self !< CLAsG data. integer(I4P) :: a !< Counter. if (self%is_called) then do a=1, self%Na call self%cla(a)%sanitize_defaults enddo endif endsubroutine sanitize_defaults