回 帖 发 新 帖 刷新版面

主题:关于代码运行时间的疑惑?

    program ex01
    implicit none
    double precision N
    integer K
    real time_begin,time_end
    CALL CPU_TIME(TIME_BEGIN)
    N=1
    DO 10,K=1,16
      N=N*K
10    CONTINUE
      PRINT *, N
    CALL CPU_TIME(TIME_END) 
    PRINT *,TIME_END-TIME_BEGIN
    END


帮我看看哪里出错了?在CVF6.6中编译无错误,但是连接提示错误,见图片。

这个CPU_TIME是FORTRAN95的,是不是CVF6.6不支持呢?还是代码哪里出错了?


我注销掉COU_TIME部分,其余部分正常。
    program ex01
    implicit none
    double precision N
    integer K
C   real time_begin,time_end
C   CALL CPU_TIME(TIME_BEGIN)
    N=1
    DO 10,K=1,16
    N=N*K
10  CONTINUE
    PRINT *, N
C   CALL CPU_TIME(TIME_END) 
C   PRINT *,TIME_END-TIME_BEGIN
    END

回复列表 (共4个回复)

沙发

把声名改成REAL(8)试试:)

板凳


连接后还是2个错误

3 楼

2个错误……

ERROR 1 : Next Error is wrong.
ERROR 2 : Last Error is wrong.

4 楼

我没时间试楼主的代码, 不过看上去应该能编译通过才对...

我来回复

您尚未登录,请登录后再回复。点此登录或注册