 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 576 | 回復: 2 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[求助]
初學MPI，以下Fortran程序請教
|
|||
|
以下程序編譯后運行： mpiexec -n 4 test.exe 出現如下結果： myid= 2 results( 3 )= 10 myid= 1 results( 2 )= 10 myid= 3 results( 4 )= 10 myid= 0 results( 1 )= 10 results( 1 )= 10 results( 2 )= -842150451 results( 3 )= -842150451 results( 4 )= -842150451 期望所有輸出結果均為10，請問哪里錯了？ 謝謝！ 附：Fortran程序： program test implicit none include 'mpif.h' integer::i integer rank, size, myid, ierror,commandsize integer,allocatable::results(  commandsize=4 allocate(results(commandsize)) call MPI_INIT(ierror) call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror) call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierror) write(*,*)'myid=',myid results(myid+1)=10 write(*,*)'results(',myid+1,')=',results(myid+1) call MPI_ALLGATHER(results,commandsize,MPI_INTEGER,results,commandsize,MPI_INTEGER,MPI_COMM_WORLD,ierror) if(myid==0)then do i=1,commandsize write(*,*)'results(',i,')=',results(i) enddo endif call MPI_FINALIZE(ierror) deallocate(results) end |
回復此樓» 收錄本帖的淘帖專輯推薦
 資源收集 |
» 猜你喜歡
調劑
已經有0人回復
-
【新加坡】納米電子器件項目組有“聯合培養(yǎng)博士生”名額
已經有0人回復
-
物理學I論文潤色/翻譯怎么收費?
已經有275人回復
-
中德博士后2026項目5月30日截止- 國內博士后入站、德國兩年全職
已經有0人回復
-
面向全球申請人的中德博士后2026項目5月30日截止- 國內博后入站德國兩年全職
已經有0人回復
-
【新加坡】納米電子器件項目組有“聯合培養(yǎng)博士生”名額
已經有2人回復
-
重慶交大材料學院26年碩士招生復試實施細則已出。歡迎加入光子學微結構與器件課題組。
已經有0人回復
-
北工大宋曉艷教授團隊招收2026年9月入學博士【學博和專博名額均有】！
已經有1人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收10人
已經有0人回復
-
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收調劑，10人
已經有0人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- fortran和c混合編譯問題？
已經有9人回復
- ABAQUS中的用戶子程序fortran編寫問題
已經有4人回復
- 求教，我沒安裝FORTRAN，能不能用其它簡單的方法打開后綴為.f的FORTRAN源程序呢？
已經有13人回復
- 急求fortran運行錯誤原因，在線等
已經有7人回復
- 請教 fortran 運行錯誤的原因
已經有13人回復
- 配置一臺1萬左右的計算機跑Fortran程序以及高斯的計算
已經有8人回復
- 關于Fortran程序運行的求助
已經有2人回復
- fortran程序怎樣調用lapack庫進行矩陣對角化？
已經有7人回復
- 大家?guī)臀铱匆粋�fortran的程序，我總是計算不出正確的結果
已經有20人回復
- 我編的Simpson積分法fortran程序給不出結果，大俠們看看哪里出了問題？
已經有4人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經有9人回復
- 關于MPI并行編程的基本問題
已經有8人回復
- 請教關于in cell形式向original形式坐標轉化的fortran算法
已經有3人回復
- 【求助】如何寫FORTRAN程序實現求平均最近鄰距離
已經有34人回復
- 【求助】初學fortran，
已經有15人回復
- 請教fortran導txt數據進origin問題
已經有1人回復
3樓2011-10-26 00:09:47
baghnac
金蟲 (小有名氣)
- 應助: 14 (小學生)
- 金幣: 1706.4
- 紅花: 6
- 帖子: 177
- 在線: 44小時
- 蟲號: 1365578
- 注冊: 2011-08-11
- 性別: GG
- 專業(yè): 宇宙學
【答案】應助回帖
tang76(金幣+1): 2011-10-26 00:08:22
|
⑴發(fā)送與接收緩沖區(qū)如果一樣，會沖突 ⑵接收緩沖區(qū)應大于各發(fā)送緩沖區(qū)的總大小 雖然書上沒有找到這么說，但是我試出來的是這個結果 結果如下 myid=0 results( 1 )= 10 results( 2 )= 0 results( 3 )= 0 results( 4 )= 0 recvs( 1 )= 10 recvs( 2 )= 0 recvs( 3 )= 0 recvs( 4 )= 0 recvs( 5 )= 0 recvs( 6 )= 10 recvs( 7 )= 0 recvs( 8 )= 0 recvs( 9 )= 0 recvs( 10 )= 0 recvs( 11 )= 10 recvs( 12 )= 0 recvs( 13 )= 0 recvs( 14 )= 0 recvs( 15 )= 0 recvs( 16 )= 10 myid=1 results( 1 )= 0 results( 2 )= 10 results( 3 )= 0 results( 4 )= 0 myid=2 results( 1 )= 0 results( 2 )= 0 results( 3 )= 10 results( 4 )= 0 myid=3 results( 1 )= 0 results( 2 )= 0 results( 3 )= 0 results( 4 )= 10 附程序： program test implicit none include 'mpif.h' integer::i integer rank, size, myid, ierror,commandsize,sendcnt,recvcnt,sendssize integer,allocatable::results( integer,allocatable::recvs( commandsize=4 sendssize=16 allocate(results(commandsize)) allocate(recvs(sendssize)) call MPI_INIT(ierror) call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror) call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierror) ! write(*,*)'myid=',myid results(myid+1)=10 ! write(*,*)'results(',myid+1,')=',results(myid+1) call MPI_ALLGATHER(results,commandsize,MPI_INTEGER,recvs,commandsize,MPI_INTEGER,MPI_COMM_WORLD,ierror) if(myid==0)then do i=1,commandsize write(*,*)'results(',i,')=',results(i) enddo do i=1,sendssize write(*,*)'recvs(',i,')=',recvs(i) enddo endif call MPI_FINALIZE(ierror) deallocate(results) end 運行結果 |
2樓2011-10-25 14:29:53
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 322求調劑 +6 | 宋明欣 2026-03-27 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 0856，材料與化工321分求調劑 +8 | 大饞小子 2026-03-27 | 9/450 |
|
|
|
[考研] 292求調劑 +13 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 14/700 |
|
|
|
[考研] 化學308分求調劑 +8 | 你好明天你好 2026-03-23 | 9/450 |
|
|
|
[考研] 一志愿華東理工大學081700，初試分數271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
|
[考研] 材料求調劑 +8 | @taotao 2026-03-21 | 8/400 |
|
|
|
[考研] 調劑 +3 | 李嘉圖·S·路 2026-03-27 | 3/150 |
|
|
|
[考研] 材料求調劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
|
[論文投稿] Journal of Mechanical Science and Technology +3 | Russ_ss 2026-03-25 | 5/250 |
|
|
|
[考研] 0703化學一志愿南京師范大學303求調劑 +3 | zzffylgg 2026-03-24 | 3/150 |
|
|
|
[考研] 生物學學碩，一志愿湖南大學，初試成績338 +4 | YYYYYNNNNN 2026-03-26 | 4/200 |
|
|
|
[考研]
 085602 289分求調劑
+8
|
WWW西西弗斯 2026-03-24 | 8/400 |
|
|
|
[考研] 【2026考研調劑】制藥工程 284分 求相關專業(yè)調劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
|
[考研] 285求調劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
|
[考研] 0703化學求調劑 +6 | 奶油草莓. 2026-03-22 | 7/350 |
|
|
|
[考研] B區(qū)考研調劑 +4 | yqdszhdap－ 2026-03-22 | 5/250 |
|
|
|
[考研] 一志愿南航材料專317分求調劑 +5 | 炸呀炸呀炸薯條 2026-03-23 | 5/250 |
|
|
|
[考研] 一志愿河北工業(yè)大學0817化工278分求調劑 +7 | jhybd 2026-03-23 | 12/600 |
|
|
|
[考研] 284求調劑 +3 | yanzhixue111 2026-03-23 | 6/300 |
|
|
|
[考研] 材料與化工（0856）304求 B區(qū) 調劑 +3 | 邱gl 2026-03-21 | 3/150 |
|