CautionPortability Subroutine: Returns the Greenwich mean time in an array of time elements.
Module: USE IFPORT
Syntax
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) |
CautionThis subroutine may cause problems with the year 2000. Use DATE_AND_TIME instead.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
Example
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