PROGRAM TEST
      integer count_0, count_1, count_rate, count_max
      real(8) delta

      WRITE(*,*) "START"
      call system_clock(count_0, count_rate, count_max)
      call sleep(2)
      call system_clock(count_1, count_rate, count_max)
      WRITE(*,*) "END"

      delta = (count_1 - count_0) * 1.0 / count_rate
      write (*,*) "Duration: ", delta

      END

-- MattWalsh - 13 Dec 2004