ITIME

March 20, 2014, 12:00 am

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:

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