 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 931 | 回復(fù): 6 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
xianweiwang鐵蟲 (小有名氣)
|
[求助]
這段并行程序有問題，不知道錯(cuò)在什么地方請(qǐng)大家看看！
|
|
|
MODULE GLOBAL implicit none type INDATA_TYPE real a real b integer n end type INDATA_TYPE END MODULE GLOBAL program Get_data3 use global include 'mpif.h' type(INDATA_TYPE) indata integer my_rank integer mesg_mpi_t integer ierr call MPI_INIT (ierr) call MPI_COMM_RANK (MPI_COMM_WORLD,my_rank,ierr) call MPI_COMM_SIZE (MPI_COMM_WORLD,numproc,ierr) print*, my_rank print*, numproc call MPI_Barrier(MPI_COMM_WORLD,ierr) if(my_rank.eq.0)then print *, 'Enter a, b, and n' read *, indata%a, indata%b, indata%n endif call Build_derived_type(indata, mesg_mpi_t) call MPI_BCAST(indata, 1, mesg_mpi_t, 0,MPI_COMM_WORLD,ierr ) print*, indata%a, indata%b, indata%n call MPI_Barrier(MPI_COMM_WORLD,ierr) call MPI_FINALIZE(ierr) end subroutine Build_derived_type(indata, mesg_mpi_t) use GLOBAL IMPLICIT NONE INCLUDE 'mpif.h' type(INDATA_TYPE) indata integer mesg_mpi_t integer ierr integer block_lengths(3) integer displacements(3) integer address(4) integer typelist(3) typelist(1) = MPI_REAL typelist(2) = MPI_REAL typelist(3) = MPI_INTEGER block_lengths(1) = 1 block_lengths(2) = 1 block_lengths(3) = 1 call MPI_address(indata, address(1), ierr) call MPI_address(indata%a, address(2), ierr) call MPI_address(indata%b, address(3), ierr) call MPI_address(indata%n, address(4), ierr) displacements(1) = address(2) - address(1) displacements(2) = address(3) - address(1) displacements(3) = address(4) - address(1) call MPI_TYPE_STRUCT(3, block_lengths, displacements, typelist, mesg_mpi_t, ierr) call MPI_TYPE_COMMIT(mesg_mpi_t, ierr) return end 運(yùn)行結(jié)果是 mpirun -np 8 ./a.out 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n 0 1 Enter a, b, and n forrtl: severe (24): end-of-file during read, unit -4, file stdin Image PC Routine Line Source a.out 00000000004B8891 Unknown Unknown Unknown 這樣看是進(jìn)程的編號(hào)不對(duì)，不知道為什么這樣！ |
回復(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，生物學(xué)求調(diào)劑
已經(jīng)有3人回復(fù)
-
化學(xué)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)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 求指導(dǎo)：想考2013年考研，但是不知道選什么專業(yè)....
已經(jīng)有4人回復(fù)
- 求真相，大家看看這篇CCL英文文章是不是有問題
已經(jīng)有19人回復(fù)
- 大家看看這幾個(gè)B類錯(cuò)誤會(huì)影響投稿吧
已經(jīng)有3人回復(fù)
- 【求助】運(yùn)行錯(cuò)誤，大家看看問題在哪？
已經(jīng)有7人回復(fù)
5樓2012-01-16 04:31:45
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2012-01-13 13:41:14
xianweiwang
鐵蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.1
- 散金: 610
- 紅花: 1
- 帖子: 60
- 在線: 45.9小時(shí)
- 蟲號(hào): 963122
- 注冊(cè): 2010-03-06
- 專業(yè): 理論和計(jì)算化學(xué)
3樓2012-01-13 15:05:21
xianweiwang
鐵蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.1
- 散金: 610
- 紅花: 1
- 帖子: 60
- 在線: 45.9小時(shí)
- 蟲號(hào): 963122
- 注冊(cè): 2010-03-06
- 專業(yè): 理論和計(jì)算化學(xué)
4樓2012-01-13 15:08:30
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 275求調(diào)劑 +10 | Micky11223 2026-03-25 | 14/700 |
|
|---|---|---|---|---|
|
|
[考研] 311（085601）求調(diào)劑 +3 | liziyeyeye 2026-03-28 | 3/150 |
|
|
[考研] 學(xué)碩274求調(diào)劑 +7 | Li李魚 2026-03-26 | 7/350 |
|
|
|
[考研]
 一志愿廈門大學(xué)化學(xué)學(xué)碩307求調(diào)劑
+10
|
y7czhao 2026-03-26 | 10/500 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +3 | AZMK 2026-03-28 | 5/250 |
|
|
|
[考研] 292求調(diào)劑 +14 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 15/750 |
|
|
|
[考研] 0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +9 | 丹青奶蓋 2026-03-26 | 10/500 |
|
|
|
[考研] 求調(diào)劑 +8 | 張zz111 2026-03-27 | 9/450 |
|
|
|
[考研] 化學(xué)調(diào)劑 +4 | 愛吃番茄的旭 2026-03-24 | 5/250 |
|
|
|
[考研] 307求調(diào)劑 +8 | 超級(jí)伊昂大王 2026-03-24 | 9/450 |
|
|
|
[考研] 276求調(diào)劑。有半年電池和半年高分子實(shí)習(xí)經(jīng)歷 +10 | 材料學(xué)257求調(diào)劑 2026-03-23 | 11/550 |
|
|
|
[考研] 325求調(diào)劑 +5 | 李嘉圖·S·路 2026-03-23 | 5/250 |
|
|
|
[考研] 325求調(diào)劑 +3 | Aoyijiang 2026-03-23 | 3/150 |
|
|
|
[考研] 中國(guó)科學(xué)院深圳先進(jìn)技術(shù)研究院-光纖傳感課題組招生-中國(guó)科學(xué)院大學(xué)、深圳理工大學(xué)聯(lián)培 +5 | YangTyu1 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
|
[考研] 26考研-291分-廈門大學(xué)（085601）-柔性電子學(xué)院材料工程專業(yè)求調(diào)劑 +3 | min3 2026-03-24 | 4/200 |
|
|
|
[考研] 086003食品工程求調(diào)劑 +6 | 淼淼111 2026-03-24 | 6/300 |
|
|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7 | 小羊睡著了? 2026-03-23 | 10/500 |
|
|
|
[考研] 292求調(diào)劑 +4 | 鵝鵝鵝額額額額?/a> 2026-03-24 | 4/200 |
|
|
|
[考研] 284求調(diào)劑 +3 | yanzhixue111 2026-03-23 | 6/300 |
|