[开源]自编二叉树排序测试小程序[一百万个节点] Fortran 90 [OpenMP]支持多处理器

Nature

今天无事写了一个小程序。
一百万个随机生成的字符串通过二叉树算法进行排序（Tree sort).
Windows 可执行文件和Fortran 源代码 在附件中

测试结果
Core2 Duo T2370 Vista SP1
Tree sort benchmark - 1M nodes
Number of CPUs available           2
time(s)        speed(nodes/s)          progress
   5.4132338           19370          10 %
   17.378511            8763          20 %
   36.083035            5605          30 %
   61.916798            4058          40 %
   95.706612            3103          50 %
   138.35728            2458          60 %
   190.85162            1997          70 %
   252.76843            1693          80 %
   325.30890            1445          90 %
   407.80222            1271         100 %
average speed:   2571.2856     nodes per second

Celeron 540 Linux (Debian Lenny)
Tree sort benchmark - 1M nodes
Number of CPUs available           1
time(s)        speed(nodes/s)          progress
   4.5242820           23176          10 %
   20.453278            6582          20 %
   52.759296            3245          30 %
   105.99863            1969          40 %
   181.96738            1380          50 %
   280.89355            1059          60 %
   402.81317             860          70 %
   547.45416             724          80 %
   714.97266             625          90 %
   905.16455             551         100 %
average speed:   1158.4010     nodes per second

ENJOY{wink:]

Nature

忘传附件了[local]1[/local]{blush:] [local]2[/local]

xiaofeng_000

程序呢？

Nature

Nature

[local]1[/local]

[MB] l1

id3位数发帖1位数的潜水艇化石，积分太少传不了了，传到网盘上吧

[ 本帖最后由 [MB] l1 于 2008-9-15 18:14 编辑 ]

Nature

Windows可执行代码太大了，传不上来
只能把代码先传上来。

用gfortran编译。 gfortran可以在这里下载 http://quatramaran.ens.fr/~coudert/gfortran/gfortran-windows.exe
在终端窗口下输入
gfortran  -fopenmp -O2 tree-sort.f90 init-rand-seed.f90 tree-bench.f90

[MB] l1

test

[ 本帖最后由 [MB] l1 于 2008-9-15 20:38 编辑 ]

notfishcc

运行到50%程序出错....

Nature

原帖由 notfishcc 于 2008-9-15 18:43 发表
运行到50%程序出错....

出错信息可以分享一下吗

我正在注册一个网络共享存储网站。

notfishcc

原帖由 Nature 于 2008-9-15 18:47 发表

出错信息可以分享一下吗

我正在注册一个网络共享存储网站。

Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

[ 本帖最后由 notfishcc 于 2008-9-15 18:56 编辑 ]

[MB] l1

编译时有平台限制吗？

Nature

原帖由 notfishcc 于 2008-9-15 18:55 发表


Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

我怀疑在你楼上放rar的那个人的电脑里有trojan，从而导致生成的exe破损。
建议大家不要下载那个rar包

xiaofeng_000

60%-70%窗口就自动关闭了
而且4核cpu无法100%利用
只能80%+

Nature

原帖由 [MB] l1 于 2008-9-15 19:40 发表
编译时有平台限制吗？

没有限制。
只要是支持fortran90 和openmp2.5 的编译器都可以。
建议使用gfortran(gcc 4.3 backend)。链接在楼主贴可以找到。

Nature

刚刚申请好一个网络硬盘
http://pickup.mofile.com/3542510506587451
从这个链接可以下载

Nature

原帖由 notfishcc 于 2008-9-15 18:55 发表


Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

那个rar包里可能有木马。建议大家不要下载。

Nature

原帖由 xiaofeng_000 于 2008-9-15 20:11 发表
60%-70%窗口就自动关闭了
而且4核cpu无法100%利用
只能80%+

试试我给的链接里的可执行文件。

[MB] l1

原帖由 Nature 于 2008-9-15 20:18 发表

那个rar包里可能有木马。建议大家不要下载。

直接用你给那个编译器编译的，也是40％后自动退出，木马应该是误报，你网盘那个就大了几十字节，可以运行而且速度快很多，莫非是你给那个编译器有问题？

肥肉方子

看来楼主，只会在自己的机器上面写程序，不会发布！