| 查看: 1537 | 回复: 2 | |||
[交流]
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核，输出时间几乎一样，没有并行效率，急求大神指点!!! |
回复此楼» 猜你喜欢
国家基金申请书模板内插入图片不可调整大小?
已经有9人回复
-
退学或坚持读
已经有20人回复
-
免疫学博士有名额，速联系
已经有14人回复
-
面上基金申报没有其他的参与者成吗
已经有4人回复
-
多组分精馏求助
已经有6人回复
-
国家级人才课题组招收2026年入学博士
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
| 顶一下 |
2楼2014-05-15 10:28:10
songseunghun
铁杆木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 8132.6
- 红花: 2
- 帖子: 294
- 在线: 117.9小时
- 虫号: 544742
- 注册: 2008-04-13
- 性别: MM
- 专业: 结构工程
3楼2014-05-17 09:50:42