版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

whpwan

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 9.5
帖子: 3
在线: 43分钟
虫号: 3059627
注册: 2014-03-16
专业: 通信理论与系统

[交流] OpenMP 并行效率没有已有1人参与

有简单程序并行，但没有效率，程序结构很简单，请各位大神帮忙看看：
PROGRAM parallel_01

USE omp_lib
IMPLICIT NONE

INTEGER :: i,j,ii
REAL, DIMENSION(1:20000000) :: f, g
REAL :: k,t1,t2,time

CALL omp_set_num_threads(4)
k = 0
t1=omp_get_wtime()
do ii=1,1000             !这层循环是为了使计算时间长一点，方便观察并行时间

!$omp parallel private(k,i)
!$omp do
      DO i = 1, 20000000
            f(i) = g(i)+1
            k = k + 1
      END DO
!$omp end do
!$omp end parallel

!$omp parallel private(k,j)
!$omp do
      DO j = 1, 20000000
            g(j) =f(j)+1
            k = k + 1
      END DO
!$omp end do
!$omp end parallel
enddo    !end of ii=1,1000

t2=omp_get_wtime()
print*,"cost time:",t2-t1

END PROGRAM

计算机配置为4核的，分别调用2,3,4核，输出时间几乎一样，没有并行效率，急求大神指点!!!

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

Gaussian 软件的并行效率已经有8人回复
请问单机装VASP，装并行好还是串行好？已经有15人回复
CPMD 3.17.1 新版更新与与ubuntu + gcc4.6 + openmpi并行编译已经有3人回复
求助：openmp 单节点多核并行效率问题已经有4人回复
并行计算没有输出？怎么回事已经有16人回复
单机多核一个cpu的串行并行求助已经有26人回复
Openmp效率的问题已经有3人回复
32-bit Windows系统的elk-openmp并行版已经有24人回复
并行编译vasp出错，make: *** 没有规则可以创建“vasp”需要的目标“xml.o”。停止已经有12人回复
有没有人关注fortran语言的GPU并行呢？已经有12人回复
【求助】安装mpich2时如何产生mpicc及mpifort 已经有9人回复
【讨论】大家对未来GPU在monte carlo中的应用持有什么样的态度(CUDA)？已经有15人回复
【求助】有关fortran进行数值模拟已经有10人回复

1楼 2014-05-15 10:26:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

songseunghun

铁杆木虫 (小有名气)

应助: 2 (幼儿园)
金币: 8132.6
红花: 2
帖子: 294
在线: 118.1小时
虫号: 544742
注册: 2008-04-13
性别: MM
专业: 结构工程

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

private后面加上num_threads（），括号内写上几个线程，估计会好一些吧

赞一下