perf_region_end Subroutine

public subroutine perf_region_end(region_id, t0)

フェーズ終了時刻との差分を累積する。

Arguments

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

Calls

proc~~perf_region_end~~CallsGraph proc~perf_region_end perf_region_end proc~perf_add_elapsed perf_add_elapsed proc~perf_region_end->proc~perf_add_elapsed proc~perf_wall_time_seconds perf_wall_time_seconds proc~perf_region_end->proc~perf_wall_time_seconds

Called by

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

Source Code

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

    if (.not. perf_state%enabled) return
    if (.not. valid_region(region_id)) return
    call perf_add_elapsed(region_id, perf_wall_time_seconds() - t0)
  end subroutine perf_region_end