ETIME — Execution time subroutine (or function)

ETIME(VALUES, TIME)

ETIME(VALUES, TIME) returns the number of seconds of runtime since the start of the process’s execution in TIME. VALUES returns the user and system components of this time in VALUES(1) and VALUES(2) respectively. TIME is equal to VALUES(1) + VALUES(2).

Parameters:

• VALUES – The type shall be REAL(4), DIMENSION(2).

• TIME – The type shall be REAL(4).

Returns:

Elapsed time in seconds since the start of program execution.

Standard:

GNU extension

Class:

Subroutine, function

Syntax:

CALL ETIME(VALUES, TIME).
TIME = ETIME(VALUES), (not recommended).

Example:

program test_etime
    integer(8) :: i, j
    real, dimension(2) :: tarray
    real :: result
    call ETIME(tarray, result)
    print *, result
    print *, tarray(1)
    print *, tarray(2)
    do i=1,100000000    ! Just a delay
        j = i * i - i
    end do
    call ETIME(tarray, result)
    print *, result
    print *, tarray(1)
    print *, tarray(2)
end program test_etime

See also:

CPU_TIME — CPU elapsed time in seconds