perf_region_begin Subroutine

public subroutine perf_region_begin(region_id, t0)

フェーズ開始時刻を取得する。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: region_id
real(kind=dp), intent(out) :: t0

Calls

proc~~perf_region_begin~~CallsGraph proc~perf_region_begin perf_region_begin proc~perf_wall_time_seconds perf_wall_time_seconds proc~perf_region_begin->proc~perf_wall_time_seconds

Called by

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

Source Code

  subroutine perf_region_begin(region_id, t0)
    integer(i32), intent(in) :: region_id
    real(dp), intent(out) :: t0

    if (.not. perf_state%enabled) then
      t0 = 0.0d0
      return
    end if
    if (.not. valid_region(region_id)) then
      t0 = 0.0d0
      return
    end if
    t0 = perf_wall_time_seconds()
  end subroutine perf_region_begin