Inquire is section has options (at least one).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(section), | intent(in) | :: | self | Section data. |
Inquire result.
elemental function has_options(self)
!< Inquire is section has options (at least one).
class(section), intent(in) :: self !< Section data.
logical :: has_options !< Inquire result.
has_options = allocated(self%options)
endfunction has_options