subroutine itime(iarray) integer*4 iarray(3)
itime 子例程将当前时间放置到整数数组 iarray 中。
顺序为:小时、分钟、秒。
demo% cat  iti1.f
integer*4  a(3)
call itime( a )
write(*,  (' The time is: ',3i5)"
end
demo% f77 -silent  iti1.f
demo% a.out
 The time is:    14     55     22
demo%
libfui.a、libV77.a
time (3F) 、 ctime (3C) 、 fdate (3F) 、 idate (3F)
《FORTRAN 77 Reference Manual》