clock_init Subroutine

public pure subroutine clock_init(rate, max)

Initialize system_clock parameters.

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(out) :: rate

Clock tick rate and maximum tick count as reported by system_clock.

If the platform reports non-positive values, fallbacks are applied: - rate defaults to 1000 ticks/sec. - max defaults to huge(1_int64).
integer(kind=int64), intent(out) :: max

Clock tick rate and maximum tick count as reported by system_clock.

If the platform reports non-positive values, fallbacks are applied: - rate defaults to 1000 ticks/sec. - max defaults to huge(1_int64).

Source Code

   pure subroutine clock_init(rate, max)
      integer(int64), intent(out) :: rate, max
      !! Clock tick rate and maximum tick count as reported by `system_clock`.
      !!
      !! If the platform reports non-positive values, fallbacks are applied:
      !! - `rate` defaults to `1000` ticks/sec.
      !! - `max` defaults to `huge(1_int64)`.
      call system_clock(count_rate=rate, count_max=max)
      if (rate <= 0_int64) rate = 1000_int64
      if (max  <= 0_int64) max  = huge(1_int64)
   end subroutine clock_init