data_input_time_mode_is_implemented Function

public pure function data_input_time_mode_is_implemented(tag) result(ok)

.true. iff tag (case-insensitive) names a shipped time mode. Drives the fail-loud dispatch in data_input_time_mode_from_string — house idiom, see lateral_closure_is_implemented.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: tag

Return Value logical


Calls

proc~~data_input_time_mode_is_implemented~~CallsGraph proc~data_input_time_mode_is_implemented data_input_time_mode_is_implemented to_lower to_lower proc~data_input_time_mode_is_implemented->to_lower

Source Code

   pure logical function data_input_time_mode_is_implemented(tag) result(ok)
      !! `.true.` iff `tag` (case-insensitive) names a shipped time mode.
      !! Drives the fail-loud dispatch in `data_input_time_mode_from_string`
      !! — house idiom, see `lateral_closure_is_implemented`.
      character(len=*), intent(in) :: tag
      select case (to_lower(trim(tag)))
      case ("linear", "cyclic", "static")
         ok = .true.
      case default
         ok = .false.
      end select
   end function data_input_time_mode_is_implemented