LTIME

Portability Subroutine: Returns the components of the local time zone time in a nine-element array.

Module: USE IFPORT

Syntax

CALL LTIME (time, array)

time
(Input) INTEGER(4). An elapsed time in seconds since 00:00:00 Greenwich mean time, January 1, 1970.


array
(Output) INTEGER(4). One-dimensional array with 9 elements to contain local date and time data derived from time.

The elements of array are returned as follows:

Element Value
array(1) Seconds (0 - 59)
array(2) Minutes (0 - 59)
array(3) Hours (0 - 23)
array(4) Day of month (1 - 31)
array(5) Month (0 - 11)
array(6) Years since 1900
array(7) Day of week (0 - 6, where 0 is Sunday)
array(8) Day of year (1 - 365)
array(9) 1 if daylight saving time is in effect; otherwise, 0.

Caution

This subroutine is not year-2000 compliant, use DATE_AND_TIME instead.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also

DATE_AND_TIME, Building Applications: Portability Library Overview

Example

USE IFPORT
INTEGER(4) input_time, time_array(9)
!   find number of seconds since 1/1/70
input_time=TIME()
!   convert number of seconds to time array
CALL LTIME (input_time, time_array)
PRINT *, time_array