语法中没有这个函数，部分编译器扩展有。

打开你的编译器帮助文档，搜索 secnds 既可。

[quote]SECNDS
SECNDS can be used as an intrinsic function or as a portability routine.



--------------------------------------------------------------------------------


SECNDS Intrinsic Function
Elemental Intrinsic Function (Specific): Provides the system time of day, or elapsed time, as a floating-point value in seconds.

This is a specific function that has no generic function associated with it. It must not be passed as an actual argument. It is not a pure function, so it cannot be referenced inside a FORALL construct.

Syntax

result = SECNDS (x)

x
(Input) Must be of type REAL(4).

Results:

The result type is the same as x. The result value is the time in seconds since midnight - x. (The function also produces correct results for time intervals that span midnight.)

The value of SECNDS is accurate to 0.01 second, which is the resolution of the system clock.

The 24 bits of precision provide accuracy to the resolution of the system clock for about one day. However, loss of significance can occur if you attempt to compute very small elapsed times late in the day.

[/quote]