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

登錄注冊

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

24小時熱門版塊排行榜

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

返回列表

mhyuan

金蟲 (小有名氣)

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

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

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

我現(xiàn)在的想要的是，給我舉一個MPI的實(shí)際例子，下面是我寫的一個簡單的Fortran程序，是關(guān)于計(jì)算兩個數(shù)組相乘的。程序不是很復(fù)雜，希望熟悉MPI的兄弟姐妹幫我改編成MPI并行程序，并詳細(xì)說明一下如何運(yùn)行（由于初學(xué)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ù)此樓

» 猜你喜歡

286求調(diào)劑已經(jīng)有9人回復(fù)
一志愿南昌大學(xué)324求調(diào)劑已經(jīng)有6人回復(fù)
0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可已經(jīng)有10人回復(fù)
291求調(diào)劑已經(jīng)有5人回復(fù)
308求調(diào)劑已經(jīng)有7人回復(fù)
085404求調(diào)劑，總分309，本科經(jīng)歷較為豐富已經(jīng)有4人回復(fù)
壓國家一區(qū)線，求導(dǎo)師收留，有恩必謝！已經(jīng)有3人回復(fù)
一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑已經(jīng)有4人回復(fù)
083000學(xué)碩274求調(diào)劑已經(jīng)有6人回復(fù)
304求調(diào)劑已經(jīng)有4人回復(fù)

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

請教DSC 曲線問題，有兩個尖銳的吸熱峰，一個放熱峰，核磁很干凈！已經(jīng)有17人回復(fù)
關(guān)于NAMD mpi并行問題已經(jīng)有4人回復(fù)
高斯計(jì)算激發(fā)態(tài)并行問題已經(jīng)有6人回復(fù)
請教關(guān)于遺傳算法編程的問題（俺是小白）已經(jīng)有4人回復(fù)
【求助】ms5.5單機(jī)多核并行問題已經(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é)點(diǎn)并行利用效率問題已經(jīng)有10人回復(fù)
【求助】更改源代碼并行出問題已經(jīng)有9人回復(fù)
【求助】兩臺電腦并行問題已經(jīng)有5人回復(fù)
【求助】Lammps 多機(jī)并行的問題已經(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è): 理論和計(jì)算化學(xué)

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

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

mpi是cpu之間傳遞信息（數(shù)據(jù)）的協(xié)議。你要明確指定每個cpu要做什么計(jì)算，不是說把這個程序編程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è): 理論和計(jì)算化學(xué)

★
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要做什么計(jì)算，不是說把這個程序編程mpi就行了的。

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

正在學(xué)習(xí)過程中......呵呵。

贊一下(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è): 理論和計(jì)算化學(xué)

剛?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
運(yùn)行方式為：
mpif90 Matrix.f90 -o Matrix
   mpirun -np 4 ./Matrix
（當(dāng)然在并行機(jī)環(huán)境下）
運(yùn)行結(jié)果（fort.1102)：
   136       60       146       79
      103       47       99       61
      133       61       124       79
      163       75       149       97
（與上面的串行程序結(jié)果（fort.1101)完全一樣）
（這個并行程序很低級，有待繼續(xù)改進(jìn)......）

贊一下

回復(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è): 理論和計(jì)算化學(xué)

★
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
運(yùn)行方式一樣
運(yùn)行結(jié)果一樣

贊一下(1人)

回復(fù)此樓

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

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

kevin123581

金蟲 (正式寫手)

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

感覺mpi改寫好復(fù)雜啊，我也準(zhǔn)備學(xué)學(xué)

贊一下

回復(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è): 機(jī)器人學(xué)及機(jī)器人技術(shù)

呵呵，我也剛開始學(xué)習(xí)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è): 功能與智能高分子

不錯！我也要學(xué)習(xí)

回復(fù)此樓

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

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

weiwei43

至尊木蟲 (正式寫手)

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

樓主學(xué)習(xí)得真快呀!
在 VS2008下可以嗎?你寫出的運(yùn)行方式能轉(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ā)表

[考研] 083000學(xué)碩274求調(diào)劑 +6	Li李魚 2026-03-26	6/300	2026-03-28 07:25 by barnett0632
[考研] 求調(diào)劑 +6	白QF 2026-03-21	7/350	2026-03-28 00:42 by 白QF
[考研] 275求調(diào)劑 +10	Micky11223 2026-03-25	13/650	2026-03-27 22:42 by Micky11223
[考研] 化學(xué)調(diào)劑 +4	愛吃番茄的旭 2026-03-24	5/250	2026-03-27 17:50 by kiokin
[考研] 272求調(diào)劑 +7	腳滑的守法公民 2026-03-27	7/350	2026-03-27 17:23 by laoshidan
[考研] 一志愿西北大學(xué) 總分282 英語一62 求調(diào)劑 +7	18419759900 2026-03-25	8/400	2026-03-27 16:38 by 18419759900
[考研] 安徽大學(xué)專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級，六級521，求調(diào)劑 +4	美味可樂雞翅 2026-03-26	4/200	2026-03-27 15:27 by 星空星月
[考研] 305求調(diào)劑 +5	哇盧卡庫 2026-03-26	5/250	2026-03-27 14:01 by laoshidan
[考研] 317求調(diào)劑 +5	十閑wx 2026-03-24	5/250	2026-03-27 13:48 by 楊楊楊紫
[考研] 292求調(diào)劑 +4	求求了收下我吧?/a> 2026-03-26	4/200	2026-03-27 10:37 by zhshch
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +4	崔wj 2026-03-26	4/200	2026-03-27 08:04 by chemisry
[考研] 一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑 +8	AZMK 2026-03-25	10/500	2026-03-26 22:37 by 學(xué)員8dgXkO
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚的貓
[考研] 293求調(diào)劑 +7	加一一九 2026-03-24	7/350	2026-03-25 12:02 by userper
[考研] 0703化學(xué)調(diào)劑，求導(dǎo)師收 +7	天天好運(yùn)來上岸?/a> 2026-03-24	7/350	2026-03-24 20:26 by peike
[考研] 300求調(diào)劑，材料科學(xué)英一數(shù)二 +5	leaflight 2026-03-24	5/250	2026-03-24 16:25 by laoshidan
[考研] 材料專碩331求調(diào)劑 +4	鮮當(dāng)牛 2026-03-24	4/200	2026-03-24 15:58 by JourneyLucky
[考研] 344求調(diào)劑 +3	desto 2026-03-24	3/150	2026-03-24 10:09 by 搏擊518
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專碩) +4	allen-yin 2026-03-23	6/300	2026-03-23 15:04 by 汪��？！
[考研] 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)價值貼推薦，對您同樣有幫助: