dataovr_entry_is_valid Function

public pure function dataovr_entry_is_valid(e) result(ok)

.true. unless a tag names a file without naming the variable inside it. A blank file (tag not file-driven) is valid, and a var with no file is harmless — the tag simply never registers — so only the one combination is rejected.

Arguments

Type IntentOptional Attributes Name
type(dataovr_entry_config_t), intent(in) :: e

Return Value logical


Called by

proc~~dataovr_entry_is_valid~~CalledByGraph proc~dataovr_entry_is_valid dataovr_entry_is_valid proc~validate_config validate_config proc~validate_config->proc~dataovr_entry_is_valid proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   pure function dataovr_entry_is_valid(e) result(ok)
      !! `.true.` unless a tag names a file without naming the variable
      !! inside it.  A blank `file` (tag not file-driven) is valid, and
      !! a `var` with no `file` is harmless — the tag simply never
      !! registers — so only the one combination is rejected.
      type(dataovr_entry_config_t), intent(in) :: e
      logical :: ok
      ok = .not. (len_trim(e%file) > 0 .and. len_trim(e%var) == 0)
   end function dataovr_entry_is_valid