is_release_runtime_info Function

private function is_release_runtime_info()

Returns whether current version is a release

Type Bound

runtime_info_type

Arguments

None

Return Value logical


Contents

Source Code

is_release_runtime_info

Source Code

  function is_release_runtime_info()
    implicit none
    logical :: is_release_runtime_info
#ifdef IS_RELEASE
    is_release_runtime_info = .true.
#else
    is_release_runtime_info = .false.
#endif
  end function is_release_runtime_info