版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

mhyuan

金蟲 (小有名氣)

應(yīng)助: 2 (幼兒園)
金幣: 660.3
散金: 10
紅花: 1
帖子: 128
在線: 47.5小時
蟲號: 1249327
注冊: 2011-03-29
性別: GG
專業(yè): 理論和計算化學

[求助] 關(guān)于MPI并行編程的基本問題

想要自學MPI并行編程，由于以前從未接觸過MPI，有熟悉的希望能幫個忙，多謝。

我現(xiàn)在的想要的是，給我舉一個MPI的實際例子，下面是我寫的一個簡單的Fortran程序，是關(guān)于計算兩個數(shù)組相乘的。程序不是很復(fù)雜，希望熟悉MPI的兄弟姐妹幫我改編成MPI并行程序，并詳細說明一下如何運行（由于初學MPI，對這方面的知識還處于空白狀態(tài)），希望有人幫忙，不勝感激！

  Program Matrix
  Implicit None
  Integer :: I,J,K
  Integer :: A(4,4),B(4,4),C(4,4)
  Data A/1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7/
  Data B/9,8,7,6,5,4,3,2,1,9,8,7,6,5,4,3/
  Do I=1,4
Do J=1,4
   C(I,J)=0
   Do k=1,4
      C(I,J)=C(I,J)+A(I,K)*B(K,J)
   Enddo
Enddo
  Write(1101,*) (C(I,J),J=1,4)
  Enddo
  End

[ Last edited by mhyuan on 2011-7-11 at 21:40 ]

回復(fù)此樓

» 猜你喜歡

275求調(diào)劑已經(jīng)有14人回復(fù)
調(diào)劑310 已經(jīng)有6人回復(fù)
283求調(diào)劑已經(jīng)有3人回復(fù)
085602 化工專碩 338分求調(diào)劑已經(jīng)有12人回復(fù)
312，生物學求調(diào)劑已經(jīng)有3人回復(fù)
化學0703 調(diào)劑 306分一志愿211 已經(jīng)有4人回復(fù)
311（085601）求調(diào)劑已經(jīng)有3人回復(fù)
復(fù)試調(diào)劑已經(jīng)有3人回復(fù)
本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以已經(jīng)有6人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有9人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

請教DSC 曲線問題，有兩個尖銳的吸熱峰，一個放熱峰，核磁很干凈！已經(jīng)有17人回復(fù)
關(guān)于NAMD mpi并行問題已經(jīng)有4人回復(fù)
高斯計算激發(fā)態(tài)并行問題已經(jīng)有6人回復(fù)
請教關(guān)于遺傳算法編程的問題（俺是小白）已經(jīng)有4人回復(fù)
【求助】ms5.5單機多核并行問題已經(jīng)有9人回復(fù)
【求助】mpi vasp問題已經(jīng)有32人回復(fù)
關(guān)于應(yīng)用MATLAB工具箱BP網(wǎng)絡(luò)編程問題已經(jīng)有1人回復(fù)
【求助】mpi不并行。。。已經(jīng)有6人回復(fù)
【求助】關(guān)于服務(wù)器多節(jié)點并行利用效率問題已經(jīng)有10人回復(fù)
【求助】更改源代碼并行出問題已經(jīng)有9人回復(fù)
【求助】兩臺電腦并行問題已經(jīng)有5人回復(fù)
【求助】Lammps 多機并行的問題已經(jīng)有11人回復(fù)

1樓 2011-07-11 21:38:10

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tsiangsun

木蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 1923.4
散金: 42
帖子: 56
在線: 23.7小時
蟲號: 500643
注冊: 2008-02-13
性別: GG
專業(yè): 理論和計算化學

【答案】應(yīng)助回帖

★
xzhdty(金幣+1): 歡迎常來程序語言版討論 2011-07-13 01:07:47
mhyuan(金幣+5): 2011-07-16 09:23:21

mpi是cpu之間傳遞信息（數(shù)據(jù)）的協(xié)議。你要明確指定每個cpu要做什么計算，不是說把這個程序編程mpi就行了的。

網(wǎng)上和書店就有賣教材的，看了以后再來問

贊一下(1人)

回復(fù)此樓

2樓2011-07-12 23:48:18

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mhyuan

金蟲 (小有名氣)

應(yīng)助: 2 (幼兒園)
金幣: 660.3
散金: 10
紅花: 1
帖子: 128
在線: 47.5小時
蟲號: 1249327
注冊: 2011-03-29
性別: GG
專業(yè): 理論和計算化學

★
jjdg(金幣+1): 感謝參與程序語言版討論 2011-07-16 13:31:29

引用回帖:

Originally posted by tsiangsun at 2011-07-12 23:48:18:
mpi是cpu之間傳遞信息（數(shù)據(jù)）的協(xié)議。你要明確指定每個cpu要做什么計算，不是說把這個程序編程mpi就行了的。

網(wǎng)上和書店就有賣教材的，看了以后再來問

正在學習過程中......呵呵。

贊一下(1人)

回復(fù)此樓

3樓2011-07-16 09:25:26

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mhyuan

金蟲 (小有名氣)

應(yīng)助: 2 (幼兒園)
金幣: 660.3
散金: 10
紅花: 1
帖子: 128
在線: 47.5小時
蟲號: 1249327
注冊: 2011-03-29
性別: GG
專業(yè): 理論和計算化學

剛?cè)腴T，寫了一個最簡單的并行程序（Matrix.f90）。如下：
Program Matrix
Implicit None
Include 'mpif.h'

Integer :: I,J,K
Integer :: iam,np,ierr
integer :: status(MPI_STATUS_SIZE)
Integer :: A(4,4),B(4,4),C(4,4)

Call MPI_INIT(Ierr)
Call MPI_COMM_RANK(mpi_comm_world,iam,ierr)
Call mpi_comm_size(mpi_comm_world,np,ierr)

   Data A/1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7/
   Data B/9,8,7,6,5,4,3,2,1,9,8,7,6,5,4,3/
   Data C/0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/

Do J=1,4
   Do I=1,4
      C((iam+1),J)=C((iam+1),J)+A((iam+1),I)*B(I,J)
   Enddo
Enddo

If (iam==0) then
   Call MPI_Recv(c(2,1),1,MPI_Integer,1,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(2,2),1,MPI_Integer,1,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(2,3),1,MPI_Integer,1,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(2,4),1,MPI_Integer,1,0,mpi_comm_world,status,ierr)

   Call MPI_Recv(c(3,1),1,MPI_Integer,2,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(3,2),1,MPI_Integer,2,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(3,3),1,MPI_Integer,2,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(3,4),1,MPI_Integer,2,0,mpi_comm_world,status,ierr)

   Call MPI_Recv(c(4,1),1,MPI_Integer,3,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(4,2),1,MPI_Integer,3,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(4,3),1,MPI_Integer,3,0,mpi_comm_world,status,ierr)
   Call MPI_Recv(c(4,4),1,MPI_Integer,3,0,mpi_comm_world,status,ierr)
Elseif (iam==1) then
       Call MPI_send(c(2,1),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(2,2),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(2,3),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(2,4),1,MPI_Integer,0,0,mpi_comm_world,ierr)
Elseif (iam==2) then
       Call MPI_send(c(3,1),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(3,2),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(3,3),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(3,4),1,MPI_Integer,0,0,mpi_comm_world,ierr)
Elseif (iam==3) then
       Call MPI_send(c(4,1),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(4,2),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(4,3),1,MPI_Integer,0,0,mpi_comm_world,ierr)
       Call MPI_send(c(4,4),1,MPI_Integer,0,0,mpi_comm_world,ierr)
Endif

If (iam==0) then
   Do I=1,4
      Write(1102,*) (C(I,J),J=1,4)
   Enddo
Endif

Call MPI_FINALIZE(ierr)
End
運行方式為：
mpif90 Matrix.f90 -o Matrix
   mpirun -np 4 ./Matrix
（當然在并行機環(huán)境下）
運行結(jié)果（fort.1102)：
   136       60       146       79
      103       47       99       61
      133       61       124       79
      163       75       149       97
（與上面的串行程序結(jié)果（fort.1101)完全一樣）
（這個并行程序很低級，有待繼續(xù)改進......）

贊一下

回復(fù)此樓

4樓2011-07-21 09:01:54

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mhyuan

金蟲 (小有名氣)

應(yīng)助: 2 (幼兒園)
金幣: 660.3
散金: 10
紅花: 1
帖子: 128
在線: 47.5小時
蟲號: 1249327
注冊: 2011-03-29
性別: GG
專業(yè): 理論和計算化學

★
dubo(金幣+1): 歡迎常來程序語言版討論 2011-07-31 13:22:45

簡單版本
Program Matrix
Implicit None
Include 'mpif.h'

Integer :: I,J,K
Integer :: iam,np,ierr
Integer :: A(4,4),B(4,4),C(4,4)
Integer :: AA(4),CC(16)

Call MPI_INIT(Ierr)
Call MPI_COMM_RANK(mpi_comm_world,iam,ierr)
Call mpi_comm_size(mpi_comm_world,np,ierr)

   Data A/1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7/
   Data B/9,8,7,6,5,4,3,2,1,9,8,7,6,5,4,3/
   Data CC/0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/

Do I=1,4
   AA(I)=A((iam+1),I)
Enddo

Do J=1,4
   Do I=1,4
      CC(J)=CC(J)+AA(I)*B(I,J)
   Enddo
Enddo

Call MPI_Gather(CC,4,MPI_Integer,CC,4,MPI_Integer,0,mpi_comm_world,ierr)

If (iam==0) then
K=0
Do I=1,4
   Do J=1,4
      K=K+1
C(I,J)=CC(K)
   Enddo
   Write(1103,*) (C(I,J),J=1,4)
Enddo
Endif

Call MPI_FINALIZE(ierr)
End
運行方式一樣
運行結(jié)果一樣

贊一下(1人)

回復(fù)此樓

5樓2011-07-22 11:21:26

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

kevin123581

金蟲 (正式寫手)

應(yīng)助: 12 (小學生)
金幣: 761.3
散金: 81
紅花: 6
帖子: 539
在線: 238.7小時
蟲號: 1658947
注冊: 2012-03-02
性別: MM
專業(yè): 光學

感覺mpi改寫好復(fù)雜啊，我也準備學學

贊一下

回復(fù)此樓

6樓2012-09-11 11:55:57

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lrlrwu

金蟲 (小有名氣)

應(yīng)助: 2 (幼兒園)
金幣: 1441.9
帖子: 126
在線: 122.1小時
蟲號: 1534477
注冊: 2011-12-12
性別: GG
專業(yè): 機器人學及機器人技術(shù)

呵呵，我也剛開始學習MPI編程~我用的是C環(huán)境下的~

贊一下(1人)

回復(fù)此樓

7樓2012-09-11 18:06:41

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangjiang381

銅蟲 (初入文壇)

應(yīng)助: 2 (幼兒園)
金幣: 88.9
帖子: 32
在線: 2.8小時
蟲號: 2095232
注冊: 2012-10-30
性別: GG
專業(yè): 功能與智能高分子

不錯！我也要學習

回復(fù)此樓

8樓2012-11-08 21:00:47

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

weiwei43

至尊木蟲 (正式寫手)

應(yīng)助: 16 (小學生)
金幣: 18316.1
紅花: 6
帖子: 737
在線: 94.7小時
蟲號: 250282
注冊: 2006-05-13
專業(yè): 機械動力學

樓主學習得真快呀!
在 VS2008下可以嗎?你寫出的運行方式能轉(zhuǎn)到vs2008下嗎?

贊一下

回復(fù)此樓

9樓2014-07-12 21:37:27

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 mhyuan 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 329求調(diào)劑 +6	星野? 2026-03-26	6/300	2026-03-28 14:14 by 唐沐兒
[考研] 一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑 +8	AZMK 2026-03-25	11/550	2026-03-28 13:16 by AZMK
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +4	前行必有光 2026-03-28	5/250	2026-03-28 11:27 by xuxiang
[考研] 291求調(diào)劑 +15	hhhhxn.. 2026-03-23	21/1050	2026-03-28 11:26 by self2008
[考研] 藥學105500求調(diào)劑 +3	Ssun。。 2026-03-28	3/150	2026-03-28 11:24 by lxf170613
[考研] 328求調(diào)劑 +7	嗯滴的基本都 2026-03-27	7/350	2026-03-28 04:19 by fmesaito
[考研] 086000調(diào)劑 +3	7901117076 2026-03-26	3/150	2026-03-27 21:34 by Jianing_Mi
[考研] 266求調(diào)劑 +11	陽陽哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 一志愿華東理工大學081700，初試分數(shù)271 +6	kotoko_ik 2026-03-23	7/350	2026-03-27 12:29 by 惠州彭于晏
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 材料學碩，求調(diào)劑 6+5	糖葫蘆888ll 2026-03-22	10/500	2026-03-27 08:18 by hypershenger
[考研] 求調(diào)劑，一志愿南京航空航天大學大學，080500材料科學與工程學碩 +4	@taotao 2026-03-26	5/250	2026-03-27 08:10 by hypershenger
[考研] 324求調(diào)劑 +8	hanamiko 2026-03-26	10/500	2026-03-27 08:06 by hypershenger
[考研] 351求調(diào)劑 +4	麥克阿磊 2026-03-24	4/200	2026-03-27 00:32 by wxiongid
[考研] 調(diào)劑求收留 +7	果然有我 2026-03-26	7/350	2026-03-27 00:26 by wxiongid
[考研] 材料與化工328分調(diào)劑 +6	。，。，。，。i 2026-03-23	6/300	2026-03-25 22:30 by 418490947
[考研] 一志愿吉林大學材料與化工303分求調(diào)劑 +4	為學666 2026-03-24	4/200	2026-03-25 11:27 by BruceLiu320
[考研] 0703化學調(diào)劑，求導(dǎo)師收 +7	天天好運來上岸?/a> 2026-03-24	7/350	2026-03-24 20:26 by peike
[考研] 333求調(diào)劑 +3	ALULU4408 2026-03-23	3/150	2026-03-23 19:04 by macy2011
[考研] 275求調(diào)劑 +6	shansx 2026-03-22	8/400	2026-03-22 15:27 by barlinike

24小時熱門版塊排行榜

[求助] 關(guān)于MPI并行編程的基本問題

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: