二级C++：怎样提高调用数学函数的程序的性能

　　do　k=1,nrep

　　tx=rtc()

　　call　init(x,nmax)

　　call　dft(x,a,phi,nmax)

　　ty=rtc()

　　call　consume(x,a,phi)

　　do　j=1,nmax

　　acc　=　acc　+　a(j)　+　phi(j)

　　end　do

　　del(4)　=　del(4)　+　(ty-tx)

　　end　do

　　del(1)　=　del(4)/real(nmax,8)

　　del(2)　=　del(1)/real(nrep,8)

　　del(3)　=　cyc*del(2)

　　print　*,'acc=',acc/real(nrep,8),'　n=',nmax,

　　&　　'　r=',nrep,　'　a=',del(1),'　b=',del(2),

　　&　　'　c=',del(3),'　w=',del(4)

　　end　program

　　声明

　　获得的精确性可能会随着使用处理器的模型及其配置而发生变化，同时依赖的因素还有所用汇编器的版本。因此，在不同的操作条件下您将获得不同的使用经验。