| 3 | 1/1 | 返回列表 |
| 查看: 1565 | 回復(fù): 2 | |||
whpwan新蟲 (初入文壇)
|
[交流]
OpenMP 并行效率沒有 已有1人參與
|
|
有簡(jiǎn)單程序并行,但沒有效率,程序結(jié)構(gòu)很簡(jiǎn)單,請(qǐng)各位大神幫忙看看: 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 !這層循環(huán)是為了使計(jì)算時(shí)間長(zhǎng)一點(diǎn),方便觀察并行時(shí)間 !$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 計(jì)算機(jī)配置為4核的,分別調(diào)用2,3,4核,輸出時(shí)間幾乎一樣,沒有并行效率,急求大神指點(diǎn)!!! |
| 頂一下 |
鐵桿木蟲 (小有名氣)
| 3 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|