ITIME

Portability Subroutine: Returns the time in numeric form.

Module: USE DFPORT

Syntax

CALL ITIME (array)

array
(Output) INTEGER(4). A rank one array with three elements used to store numeric time data.

The current time is returned in array in the order hour (array(1)), minute (array(2)), and second (array(3)).

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: DATE_AND_TIME, Portability Library

Example

USE DFPORT
 INTEGER(4) time_array(3)
 CALL ITIME (time_array)
 write(*,10) time_array
 10 format (1X,I2,':',I2,':',I2)
 END