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》