粗粒度プロファイルが有効かを返す。
logical function perf_is_enabled() perf_is_enabled = perf_state%enabled end function perf_is_enabled