主题:关于代码运行时间的疑惑?
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
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