Visible to Intel only — GUID: GUID-7267CCC1-2537-4549-AF2B-A225459877DF
Visible to Intel only — GUID: GUID-7267CCC1-2537-4549-AF2B-A225459877DF
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