8.237 SECNDS — Функция времени

Описание:

SECNDS(X) получает время в секундах с системных часов реального времени. X — время отсчёта, также в секундах. Если это ноль, возвращается время в секундах с полуночи. Эта функция нестандартная, и её использование не рекомендуется.

Стандарт:

Расширение GNU

Класс:

Функция

Синтаксис:

RESULT = SECNDS (X)

Аргументы:

`T`	Должен быть типа `REAL(4)`.
`X`	Должен быть типа `REAL(4)`.

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

Ничего

Пример:

program test_secnds
    integer :: i
    real(4) :: t1, t2
    print *, secnds (0.0)   ! seconds since midnight
    t1 = secnds (0.0)       ! reference time
    do i = 1, 10000000      ! do something
    end do
    t2 = secnds (t1)        ! elapsed time
    print *, "Something took ", t2, " seconds."
end program test_secnds

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