GMTIME

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)

Caution

This subroutine may cause problems with the year 2000. Use DATE_AND_TIME instead.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

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