Return option values length.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(option), | intent(in) | :: | self | Option data. |
Option values length.
elemental function values_len(self) result(length)
!< Return option values length.
class(option), intent(in) :: self !< Option data.
integer :: length !< Option values length.
length = 0
if (self%ovals%is_allocated()) length = self%ovals%len()
endfunction values_len