WALL_TIME Function

private function WALL_TIME() result(T)

Wall-clock seconds elapsed, via SYSTEM_CLOCK with an INTEGER(i8) count so the calibration loops in every BENCH_* routine below cannot roll the counter over during a long-running sweep.

Returns: Current wall-clock time in seconds (arbitrary origin -- only differences between two calls are meaningful).

Arguments

None

Return Value real(kind=dp)


Called by

proc~~wall_time~~CalledByGraph proc~wall_time WALL_TIME proc~bench_legendre BENCH_LEGENDRE proc~bench_legendre->proc~wall_time proc~bench_ssh BENCH_SSH proc~bench_ssh->proc~wall_time proc~bench_vsh_pol_dn BENCH_VSH_POL_DN proc~bench_vsh_pol_dn->proc~wall_time proc~bench_vsh_pol_up BENCH_VSH_POL_UP proc~bench_vsh_pol_up->proc~wall_time proc~bench_vsh_tor BENCH_VSH_TOR proc~bench_vsh_tor->proc~wall_time program~bench_main BENCH_MAIN program~bench_main->proc~bench_legendre program~bench_main->proc~bench_ssh program~bench_main->proc~bench_vsh_pol_dn program~bench_main->proc~bench_vsh_pol_up program~bench_main->proc~bench_vsh_tor

Source Code

  FUNCTION WALL_TIME() RESULT(T)
  IMPLICIT NONE
  REAL(KIND=dp) :: T
  INTEGER(KIND=i8) :: TCOUNT, TRATE
  CALL SYSTEM_CLOCK(TCOUNT, TRATE)
  T = REAL(TCOUNT, dp) / REAL(TRATE, dp)
  RETURN
  END FUNCTION WALL_TIME