インテル® Fortran コンパイラー XE 13.1 ユーザー・リファレンス・ガイド
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:
Element
Value
tarray(1)
Seconds (0-61, where 60-61 can be returned for leap seconds)
tarray(2)
Minutes (0-59)
tarray(3)
Hours (0-23)
tarray(4)
Day of month (1-31)
tarray(5)
Month (0-11)
tarray(6)
Number of years since 1900
tarray(7)
Day of week (0-6, where 0 is Sunday)
tarray(8)
Day of year (0-365)
tarray(9)
Daylight saving flag (0 if standard time, 1 if daylight saving time)
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