perf_wall_time_seconds Function

public function perf_wall_time_seconds()

OpenMP有効時は omp_get_wtime、それ以外は system_clock を使う壁時計。

Arguments

None

Return Value real(kind=dp)


Called by

proc~~perf_wall_time_seconds~~CalledByGraph proc~perf_wall_time_seconds perf_wall_time_seconds proc~perf_region_begin perf_region_begin proc~perf_region_begin->proc~perf_wall_time_seconds proc~perf_region_end perf_region_end proc~perf_region_end->proc~perf_wall_time_seconds program~main main program~main->proc~perf_region_begin program~main->proc~perf_region_end

Source Code

  real(dp) function perf_wall_time_seconds()
    integer(int64) :: count, rate

!$  perf_wall_time_seconds = omp_get_wtime()
!$  return

    call system_clock(count=count, count_rate=rate)
    if (rate > 0_int64) then
      perf_wall_time_seconds = real(count, dp)/real(rate, dp)
    else
      call cpu_time(perf_wall_time_seconds)
    end if
  end function perf_wall_time_seconds