<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.