SECNDS — Time function#
-
SECNDS(X)#
SECNDS(X)
gets the time in seconds from the real-time system clock.X
is a reference time, also in seconds. If this is zero, the time in seconds from midnight is returned. This function is non-standard and its use is discouraged.- Parameters
T – Shall be of type
REAL(4)
.X – Shall be of type
REAL(4)
.
- Returns
None
- Standard:
GNU extension
- Class:
Function
- Syntax:
RESULT = SECNDS (X)
- Example:
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