6.194 SYSTEM_CLOCK — Time function

Description:

Determines the COUNT of milliseconds of wall clock time since the Epoch (00:00:00 UTC, January 1, 1970) modulo COUNT_MAX, COUNT_RATE determines the number of clock ticks per second. COUNT_RATE and COUNT_MAX are constant and specific to gfortran.

If there is no clock, COUNT is set to -HUGE(COUNT), and COUNT_RATE and COUNT_MAX are set to zero

Standard:

F95 and later

Class:

Subroutine

Syntax:

CALL SYSTEM_CLOCK([COUNT, COUNT_RATE, COUNT_MAX])

Arguments:

Arguments:

COUNT	(Optional) shall be a scalar of type default INTEGER with INTENT(OUT).
COUNT_RATE	(Optional) shall be a scalar of type default INTEGER with INTENT(OUT).
COUNT_MAX	(Optional) shall be a scalar of type default INTEGER with INTENT(OUT).

Example:

          PROGRAM test_system_clock
            INTEGER :: count, count_rate, count_max
            CALL SYSTEM_CLOCK(count, count_rate, count_max)
            WRITE(*,*) count, count_rate, count_max
          END PROGRAM
     

See also:

DATE_AND_TIME, CPU_TIME