$ 0 0 Portability Subroutine: Returns the time in numeric form.ModuleUSE IFPORTCALL ITIME(array)array(Output) INTEGER(4). A rank one array with three elements used to store numeric time data: array(1) - the hourarray(2) - the minutearray(3) - the secondExample 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 ISee AlsoDATE_AND_TIMESubmit feedback on this help topicLanguage English