interface
For Windows, use high-resolution system call for timing.
private function QueryPerformanceFrequency(Frequency_countPerSec) result(is_supported_c) bind(c, name="QueryPerformanceFrequency")
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=c_long_long),
|
intent(out) |
|
|
:: |
Frequency_countPerSec |
|
Return Value logical(kind=c_bool)