インテル® Fortran コンパイラー XE 13.1 ユーザー・リファレンス・ガイド
Portability Subroutine: Returns the time in numeric form.
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
INTEGER(4) time_array(3)
CALL ITIME (time_array)
write(*,10) time_array
10 format (1X,I2,':',I2,':',I2)
END