测试电脑运算速度小程序: ftn95_personal2011.part4.rar

本帖最后由 qyg123 于 2026-9-28 19:21 编辑

用FORTRAN语言编了一个测试电脑单核运算速度的小程序。原理是先调用时间函数获取当前时间，再做1亿次加法，然后再次调用时间函数获取当前时间，计算时间差并显示。用时越短，电脑越快。程序如下：

integer i
real t1,t2,a
a=0
call clock@(t1)
do,i=1,100000000
a=a+1
end do
call clock@(t2)
print 10,t2-t1
10 format('t2-t1=',f6.3,'S')
end

以下是本人测试的结果：
amd sp3000+ 1.8G 512M ddr333 hd2600 128M ddr3 xp 1亿加法：0.687s
amd x4 750K 3.4G 4G DDR3 1333 1亿加法 WIN7 0.67s
amd A10-8770 3.5G 4G DDR3 1亿加法 win7 0.639S
amd sp x2 180 2.4G 2g ddr3 1066MHZ  1亿加法 xp 0.61s      
amd x2 240 2.8G L2=2M 4G DDR3 1333 1亿加法 xp  0.578s
amd ryzen 5 pro 2600 6core 6.4G 1亿加法 win7 0.546s
amd 4400+ x2 2.3GHz 1G ddr2 667 1亿加法 xp 0.531s
amd 5000+ x2 2.6G 2G ddr2 667 1亿加法 xp 0.484s
amd x2 245 2.9G L2=2M 2G DDR3 1333 1亿加法 xp 0.453s

intel
ATOM N450(单核双线) 1.66Ghz 1G 1066Ghz 1亿加法 xp+360 2.594s
c4 2.0G L2=128k 512M ddr333 1亿加法 xp 1.6s  
cd2.26G 90nm L2=256k 256M ddr333 1亿加法 xp 1.532s
T5600 x2 1.83Ghz 1Gddr2 666 1亿加法 win7 1.669s XP 1.375S
P4 3.0G 90nm L2=1M 512M ddr667 1亿加法 xp 1.05s
e5300 x2 2.6g 2G ddr667  1亿加法 xp 0.968s
i5-2400 3.1G 4G 1亿加法 xp 0.641s
奔腾G4400 3.3GHz 8Gddr4 1亿加法 win7-32  0.531s
i5-4500 3.3G 4G 1亿加法 xp 0.525s  
i3-4160 3.6G 8G 1亿加法 win7-64 0.515s
i3-6100 3.7G 4G 1亿加法 win7-64 0.471s
i5-7500 3.4G 4G 1亿加法 win10-64 0.438s

同一台电脑，winme比xp快，xp比win7快。
不同的FORTRAN语言版本，运算速度也略有不同。
FORTRAN语言软件可从网上免费下载。
fortran95个人版:http://www.silverfrost.com/32/ftn95/ftn95_personal_edition.aspx
也可以下载附件，这是早期版本，也支持64位操作系统。
不看广告看疗效，是骡子是马溜溜便知。你的电脑有多快，用这个小程序测试一下吧。