<Example Program>
Program system_clock_example Integer count1,count2,rate,cmax Call system_clock(count1,rate,cmax) Print *, 'Count rate is', rate, 'and maximum value is', cmax Call system_clock(count2) Print *, 'Time taken to print that message was', count2-count1, 'ticks.' End Program
Execution Results
Count rate is 14318180 and maximum value is 2147483647 Time taken to print that message was 287 ticks.