# ITIME

Portability Subroutine: Returns the time in numeric form.

## Module

USE IFPORT

CALL ITIME (array)

array | (Output) INTEGER(4). A rank one array with three elements used to store numeric time data: array(1) - the hour array(2) - the minute array(3) - the second

## Example

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

Parent topic: H to I

## See Also

DATE_AND_TIME