8.98 ETIME — Подпрограмма (или функция) времени выполнения

Описание:

ETIME(VALUES, TIME) возвращает количество секунд времени выполнения с момента начала выполнения процесса в TIME. VALUES возвращает пользовательскую и системную составляющие этого времени в VALUES(1) и VALUES(2) соответственно. TIME равно VALUES(1) + VALUES(2).

В некоторых системах основанные замеры времени представлены типами с достаточно малыми пределами, что может привести к переполнению (перезаписи), например, 32-битные типы. Поэтому значения, возвращаемые этим встроенным элементом, могут быть или стать отрицательными или численно меньше предыдущих значений во время одного запуска скомпилированной программы.

Этот встроенный элемент предоставляется как в форме подпрограммы, так и в форме функции; однако в каждом программном модуле может быть использована только одна форма.

VALUES и TIME являются INTENT(OUT) и предоставляют следующее:

`VALUES(1)`:	Пользовательское время в секундах.
`VALUES(2)`:	Системное время в секундах.
`TIME`:	Время выполнения с начала в секундах.

Стандарт:

Расширение GNU

Класс:

Подпрограмма, функция

Синтаксис:

CALL ETIME(VALUES, TIME).

TIME = ETIME(VALUES), (не рекомендуется).

Аргументы:

`VALUES`	Тип должен быть `REAL(4), DIMENSION(2)`.
`TIME`	Тип должен быть `REAL(4)`.

Возвращаемое значение:

Время, прошедшее в секундах с момента запуска программы.

Пример:

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

См. также:

CPU_TIME — Время работы процессора в секундах

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/ETIME.html