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 inTIME
.VALUES
returns the user and system components of this time inVALUES(1)
andVALUES(2)
respectively.TIME
is equal toVALUES(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: