 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2549 | 回復(fù): 8 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
[求助]
關(guān)于MPI并行編程的基本問(wèn)題
|
||
|
想要自學(xué)MPI并行編程，由于以前從未接觸過(guò)MPI，有熟悉的希望能幫個(gè)忙，多謝。 我現(xiàn)在的想要的是，給我舉一個(gè)MPI的實(shí)際例子，下面是我寫(xiě)的一個(gè)簡(jiǎn)單的Fortran程序，是關(guān)于計(jì)算兩個(gè)數(shù)組相乘的。程序不是很復(fù)雜，希望熟悉MPI的兄弟姐妹幫我改編成MPI并行程序，并詳細(xì)說(shuō)明一下如何運(yùn)行（由于初學(xué)MPI，對(duì)這方面的知識(shí)還處于空白狀態(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ù)此樓» 猜你喜歡
一志愿雙一流機(jī)械285分求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑
已經(jīng)有4人回復(fù)
-
291求調(diào)劑
已經(jīng)有5人回復(fù)
-
求調(diào)劑
已經(jīng)有3人回復(fù)
-
化學(xué)0703 調(diào)劑 306分 一志愿211
已經(jīng)有5人回復(fù)
-
275求調(diào)劑
已經(jīng)有16人回復(fù)
-
調(diào)劑310
已經(jīng)有11人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有9人回復(fù)
-
296求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿南昌大學(xué)324求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 請(qǐng)教DSC 曲線問(wèn)題，有兩個(gè)尖銳的吸熱峰，一個(gè)放熱峰，核磁很干凈！
已經(jīng)有17人回復(fù)
- 關(guān)于NAMD mpi并行問(wèn)題
已經(jīng)有4人回復(fù)
- 高斯計(jì)算激發(fā)態(tài)并行問(wèn)題
已經(jīng)有6人回復(fù)
- 請(qǐng)教關(guān)于遺傳算法編程的問(wèn)題（俺是小白）
已經(jīng)有4人回復(fù)
- 【求助】ms5.5單機(jī)多核并行問(wèn)題
已經(jīng)有9人回復(fù)
- 【求助】mpi vasp問(wèn)題
已經(jīng)有32人回復(fù)
- 關(guān)于應(yīng)用MATLAB工具箱BP網(wǎng)絡(luò)編程問(wèn)題
已經(jīng)有1人回復(fù)
- 【求助】mpi不并行。。。
已經(jīng)有6人回復(fù)
- 【求助】關(guān)于服務(wù)器多節(jié)點(diǎn)并行利用效率問(wèn)題
已經(jīng)有10人回復(fù)
- 【求助】更改源代碼 并行出問(wèn)題
已經(jīng)有9人回復(fù)
- 【求助】?jī)膳_(tái)電腦并行問(wèn)題
已經(jīng)有5人回復(fù)
- 【求助】Lammps 多機(jī)并行的問(wèn)題
已經(jīng)有11人回復(fù)
weiwei43
至尊木蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 16 (小學(xué)生)
- 金幣: 18316.1
- 紅花: 6
- 帖子: 737
- 在線: 94.7小時(shí)
- 蟲(chóng)號(hào): 250282
- 注冊(cè): 2006-05-13
- 專(zhuān)業(yè): 機(jī)械動(dòng)力學(xué)
9樓2014-07-12 21:37:27
tsiangsun
木蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1923.4
- 散金: 42
- 帖子: 56
- 在線: 23.7小時(shí)
- 蟲(chóng)號(hào): 500643
- 注冊(cè): 2008-02-13
- 性別: GG
- 專(zhuān)業(yè): 理論和計(jì)算化學(xué)
2樓2011-07-12 23:48:18
3樓2011-07-16 09:25:26
|
剛?cè)腴T(mén)，寫(xiě)了一個(gè)最簡(jiǎn)單的并行程序（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)完全一樣） （這個(gè)并行程序很低級(jí)，有待繼續(xù)改進(jìn)......） |
4樓2011-07-21 09:01:54
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 291求調(diào)劑 +5 | Y-cap 2026-03-29 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷 +6 | cccchenso 2026-03-29 | 6/300 |
|
|
[考研] 一志愿北化求調(diào)劑 +4 | Jsman 2026-03-22 | 4/200 |
|
|
|
[考研] 085600，專(zhuān)業(yè)課化工原理，321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
|
[考研] 材料學(xué)碩333求調(diào)劑 +11 | 北道巷 2026-03-24 | 11/550 |
|
|
|
[考研] 343求調(diào)劑 +5 | 愛(ài)羈絆 2026-03-28 | 5/250 |
|
|
|
[考研] 壓國(guó)家一區(qū)線，求導(dǎo)師收留，有恩必謝！ +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|
|
|
[考研] 312，生物學(xué)求調(diào)劑 +3 | 小譯同學(xué)abc 2026-03-28 | 3/150 |
|
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
|
[考研] 070300求調(diào)劑306分 +4 | 26要上岸 2026-03-27 | 4/200 |
|
|
|
[考研] 材料277求調(diào)劑 +7 | min3 2026-03-24 | 7/350 |
|
|
|
[考研] 藥學(xué)105500求調(diào)劑 +3 | Ssun。。 2026-03-28 | 3/150 |
|
|
|
[考研] 085600，材料與化工321分調(diào)劑 +4 | 大饞小子 2026-03-27 | 6/300 |
|
|
|
[考研] 調(diào)劑 +3 | 李嘉圖·S·路 2026-03-27 | 3/150 |
|
|
|
[考研] 求調(diào)劑 一志愿 本科 北科大 化學(xué) 343 +6 | 13831862839 2026-03-24 | 7/350 |
|
|
|
[考研] 321求調(diào)劑 +6 | Ymlll 2026-03-24 | 6/300 |
|
|
|
[考研] 281求調(diào)劑 +6 | Koxui 2026-03-24 | 7/350 |
|
|
|
[考研] 263求調(diào)劑 +6 | yqdszhdap－ 2026-03-22 | 10/500 |
|
|
|
[考研] 材料調(diào)劑 +3 | iwinso 2026-03-23 | 3/150 |
|
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|