INTEGER*4 FUNCTION time() 32 位环境中的标准 FORTRAN 版本
INTEGER*8 FUNCTION time() 64 位环境中的标准 FORTRAN 版本
CHARACTER*8 t CALL time(t) VMS 版本
INTEGER n CHARACTER*24 FUNCTION ctime(n)
INTEGER*8 n8 CHARACTER*24 FUNCTION ctime64(n8)
INTEGER*4 stime, tarray(9) CALL ltime(stime, tarray)
INTEGER*8 stime8 INTEGER*4 tarray(9) CALL ltime64(stime8, tarray)
INTEGER*4 stime, tarray(9) CALL gmtime(stime, tarray)
INTEGER*8 stime8 INTEGER*4 tarray(9) CALL gmtime64(stime8, tarray)
函数 time 有两个版本。缺省情况下,可使用标准版本。如果调用程序是使用 f77 编译器 -lV77 选项编译的,则可使用 VMS 版本。(仅限 f77。)
函数:time() 返回一个整数,其中包含自 GMT 时间 1970 年 1 月 1 日 00:00:00 开始以来的时间(以秒数计)。这是操作系统时钟的值。
用法:
integer*4 n, time n = time()
子例程:time 获取以字符串表示的当前系统时间。
用法:
调用 time(t),其中 t 的类型为 character*8,采用 hh:mm:ss 形式。hh、mm 和 ss 是两位数;hh 是小时,mm 是分钟,ss 是秒。
示例:
demo% cat tim1.f character t*8 call time( t ) write( *, "(' The time is: ', A8 )" ) t end demo% f77 -silent tim1.f -lV77 demo% a.out The time is: 08:14:13 demo%
ctime 以 24 个字符的字符串形式返回系统时间 stime。例如,程序:
character*24 ctime integer*4 time print*, ctime(time()) end
输出以下内容:
Tue Sep 8 17:01:03 1998
ltime 和 gmtime 将系统时间拆分成各种时间单元,针对本地时区 (ltime) 或者采用 GMT (gtmtime) 形式。这些单元以九个元素的 INTEGER*4 数组形式返回,如下所示:
tarray 1 至 9、索引、单元数和范围:
1 Seconds (0 - 61) 2 Minutes (0 - 59) 3 Hours (0 - 23) 4 Day of month (1 - 31) 5 Months since January (0 - 11) 6 Year - 1900 7 Day of week (Sunday = 0) 8 Day of year (0 - 365) 9 Daylight Standard Time, 1 if DST in effect
提供了 64 位版本的 ctime、ltime 和 gmtime。它们采用 INTEGER*8 时间值。
自 GMT 时间 2038 年 1 月 19 日 3:14:07 之后,从 1970 年 1 月 1 日开始的 time() 值秒数将超出 INTEGER*4 的范围。要使用这些例程计算此类日期,可使用 64 位版本和 INTEGER*8 参数。
在编译为在 64 位环境中运行时,time() 将返回 INTEGER*8 值。针对 64 位环境编译意味着要使用 -m64 选项编译程序,并在 64 位操作环境中 64 位平台上运行程序。
libfui.a、libV77.a
itime(3F)、idate(3F)、fdate(3F)、ctime(3C)
对于 C 版本的 ctime,请键入:man -s 3C ctime
Fortran 库参考手册