Intel® Fortran Compiler 16.0 User and Reference Guide
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