| 查看: 1573 | 回复: 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核，输出时间几乎一样，没有并行效率，急求大神指点!!! |
回复此楼» 猜你喜欢
277求调剂 数一104分
已经有13人回复
-
304求调剂
已经有10人回复
-
求调剂
已经有5人回复
-
336求调剂，一志愿中科大
已经有6人回复
-
071000生物学，一志愿深圳大学296分，求调剂
已经有3人回复
-
一志愿北京化工085600 310分求调剂
已经有19人回复
-
274求调剂求调剂
已经有7人回复
-
277工科求调剂
已经有10人回复
-
283分求调剂
已经有10人回复
-
295求调剂
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
- 在线: 118.1小时
- 虫号: 544742
- 注册: 2008-04-13
- 性别: MM
- 专业: 结构工程
3楼2014-05-17 09:50:42
