Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference
A newer version of this document is available. Customers should click here to go to the newest version.
GMTIME
Portability Subroutine: Returns the Greenwich mean time in an array of time elements.
USE IFPORT
CALL GMTIME (stime,tarray)
stime |
(Input) INTEGER(4). Numeric time data to be formatted. Number of seconds since 00:00:00 Greenwich mean time, January 1, 1970. |
||||||||||||||||||||
tarray |
(Output) INTEGER(4). One-dimensional array with 9 elements used to contain numeric time data. The elements of tarray are returned as follows:
|
This subroutine may cause problems with the year 2000. Use DATE_AND_TIME instead.
use IFPORT
integer(4) stime, timearray(9)
! initialize stime to number of seconds since
! 00:00:00 GMT January 1, 1970
stime = time()
CALL GMTIME (stime, timearray)
print *, timearray
end