wall_time Function

public function wall_time()

Wall-clock time in seconds (system_clock), for the clock's default.

Arguments

None

Return Value real(kind=wp)


Called by

proc~~wall_time~~CalledByGraph proc~wall_time wall_time proc~count_frame count_frame proc~count_frame->proc~wall_time proc~frame WindowProxy%frame proc~frame->proc~wall_time proc~frame->proc~count_frame proc~stop_recording WindowProxy%stop_recording proc~frame->proc~stop_recording proc~window_wall window_wall proc~frame->proc~window_wall proc~update~3 SimulationClock%update proc~frame->proc~update~3 proc~place_camera place_camera proc~frame->proc~place_camera proc~now now proc~now->proc~wall_time proc~start_recording WindowProxy%start_recording proc~start_recording->proc~wall_time proc~stop_recording->proc~wall_time proc~stop_recording->proc~window_wall proc~set_time~4 SimulationClock%set_time proc~stop_recording->proc~set_time~4 proc~window_wall->proc~wall_time proc~close WindowProxy%close proc~close->proc~stop_recording proc~fly fly proc~fly->proc~window_wall proc~pause_time WindowProxy%pause_time proc~pause_time->proc~window_wall proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame proc~set_time WindowProxy%set_time proc~set_time->proc~window_wall proc~set_time->proc~set_time~4 proc~set_time_scale WindowProxy%set_time_scale proc~set_time_scale->proc~window_wall proc~set_time_scale~2 SimulationClock%set_time_scale proc~set_time_scale->proc~set_time_scale~2 proc~set_time~4->proc~now proc~set_time~4->proc~set_time~4 proc~start_flight start_flight proc~start_flight->proc~window_wall proc~update~3->proc~now proc~update~3->proc~set_time~4 proc~pause SimulationClock%pause proc~pause->proc~set_time~4 proc~place_camera->proc~fly proc~place_camera->proc~start_flight proc~set_camera WindowProxy%set_camera proc~set_camera->proc~start_flight proc~set_time_scale~2->proc~set_time~4 proc~set_time_scale~2->proc~set_time_scale~2 proc~synchronize SimulationClock%synchronize proc~synchronize->proc~set_time~4 proc~synchronize->proc~synchronize

Source Code

    real(wp) function wall_time()
        integer(int64) :: count, rate
        call system_clock(count, rate)
        wall_time = real(count, wp) / real(rate, wp)
    end function wall_time