toml_get_logical Subroutine

private subroutine toml_get_logical(table, key, v)

Read a TOML logical value if present.

Arguments

Type IntentOptional Attributes Name
type(toml_table), intent(inout) :: table
character(len=*), intent(in) :: key
logical, intent(inout) :: v

Calls

proc~~toml_get_logical~~CallsGraph proc~toml_get_logical toml_get_logical get_value get_value proc~toml_get_logical->get_value

Called by

proc~~toml_get_logical~~CalledByGraph proc~toml_get_logical toml_get_logical proc~apply_watch_from_manifest apply_watch_from_manifest proc~apply_watch_from_manifest->proc~toml_get_logical proc~get_restart_defaults get_restart_defaults proc~get_restart_defaults->proc~toml_get_logical proc~parse_cli parse_cli proc~parse_cli->proc~apply_watch_from_manifest proc~parse_restart_flags parse_restart_flags proc~parse_restart_flags->proc~get_restart_defaults proc~maybe_supervise maybe_supervise proc~maybe_supervise->proc~parse_restart_flags proc~parse_cli_config parse_cli_config proc~parse_cli_config->proc~parse_cli

Source Code

   subroutine toml_get_logical(table, key, v)
      type(toml_table), intent(inout) :: table
      character(len=*), intent(in) :: key
      logical, intent(inout) :: v
      logical :: tmp
      integer :: stat
      tmp = v
      call get_value(table, key, tmp, stat=stat)
      if (stat == toml_stat%success) v = tmp
   end subroutine toml_get_logical