d*e
发帖数: 109 | 1 【 以下文字转载自 CS 讨论区 】
发信人: die (Die), 信区: CS
标 题: 【求助】Fortran多线程执行效率问题
发信站: BBS 未名空间站 (Tue Aug 11 08:55:06 2009, 美东)
请教为何多线程执行起来花费时间比单线程要多呢？
非常感谢～
问题如下：
函数是用MONT CARLO方法计算圆周率。单线程计算函数两次共耗费大约是97；而两个线
程分别计算函数一次耗费的时间是392.
环境：
CPU: i7920 4核
操作系统：Windows Vista
编译器:Fortran 90
程序如下：
多线程主程序：
Program TESTPROC0
use ifqwin
use dfmt
use threadfunction
implicit none
integer,parameter::n_thread=2,n_c=2
integer(INT_PTR_KIND())::Threads_Handle(n_thread),waitresult,cend,retlog,
retint,&
thread_ |
|
