itime 将当前系统时间放入整型数组中:小时、分钟和秒。该子例程的调用方式如下所示:
call itime( iarray ) |
|||
iarray |
INTEGER*4 |
输出 |
三元素数组: iarray(1) = 小时 iarray(2) = 分钟 iarray(3) = 秒 |
示例:itime:
demo% cat titime.f INTEGER*4 iarray(3) call itime( iarray ) write (*, "(’ The time is: ’,3i5)" ) iarray end demo% f95 titime.f demo% a.out The time is: 15 42 35 |
另请参见 time(3F)、ctime(3F) 和 fdate(3F)。