!
! File: ~/numerical/clock.f90
!
! Program to test HP F90 SYSTEM_CLOCK() intrinsic.
!
! C.G. (12-98)
!
PROGRAM clock

  IMPLICIT NONE
  INTEGER :: c, r, m

  CALL SYSTEM_CLOCK( COUNT = c, COUNT_RATE = r, COUNT_MAX = m )

  PRINT *, 'COUNT, COUNT_RATE, COUNT_MAX = ', c, r, m

END PROGRAM clock
!
! Sample output from 3 successive runs:
!
!   COUNT, COUNT_RATE, COUNT_MAX =  558475924 1000 2147483647
!   COUNT, COUNT_RATE, COUNT_MAX =  558488807 1000 2147483647
!   COUNT, COUNT_RATE, COUNT_MAX =  558490426 1000 2147483647
!
! Note: sytem-clock time is returned in thousandth's of a second
!       on our HP's... good enough for most timing things (involving
!       elapsed, wall-clock times).
!