 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 928 | 回復(fù): 6 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
xianweiwang鐵蟲 (小有名氣)
|
[求助]
這段并行程序有問(wèn)題，不知道錯(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ù)此樓» 猜你喜歡
一志愿華東理工大學(xué)081700，初試分?jǐn)?shù)271
已經(jīng)有5人回復(fù)
-
081700 調(diào)劑 267分
已經(jīng)有7人回復(fù)
-
材料調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑
已經(jīng)有10人回復(fù)
-
085600材料與化工調(diào)劑
已經(jīng)有12人回復(fù)
-
材料292調(diào)劑
已經(jīng)有4人回復(fù)
-
291求調(diào)劑
已經(jīng)有8人回復(fù)
-
材料專碩找調(diào)劑
已經(jīng)有3人回復(fù)
-
材料專業(yè)求調(diào)劑
已經(jīng)有11人回復(fù)
-
一志愿國(guó)科過(guò)程所081700，274求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 求指導(dǎo)：想考2013年考研，但是不知道選什么專業(yè)....
已經(jīng)有4人回復(fù)
- 求真相，大家看看這篇CCL英文文章是不是有問(wèn)題
已經(jīng)有19人回復(fù)
- 大家看看這幾個(gè)B類錯(cuò)誤會(huì)影響投稿吧
已經(jīng)有3人回復(fù)
- 【求助】運(yùn)行錯(cuò)誤，大家看看問(wèn)題在哪？
已經(jīng)有7人回復(fù)
7樓2012-01-16 13:27:58
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ā)表 | |
|---|---|---|---|---|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +4 | 小羊睡著了? 2026-03-23 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 材料專碩英一數(shù)二306 +8 | z1z2z3879 2026-03-18 | 8/400 |
|
|
|
[考研] 工科0856求調(diào)劑 +5 | 沐析汀汀 2026-03-21 | 5/250 |
|
|
[考研] 316求調(diào)劑 +7 | 梁茜雯 2026-03-19 | 7/350 |
|
|
|
[考研] 350求調(diào)劑 +6 | weudhdk 2026-03-19 | 6/300 |
|
|
|
[考研] 0854電子信息求調(diào)劑 +3 | α____ 2026-03-22 | 3/150 |
|
|
|
[考研] 308求調(diào)劑 +3 | 墨墨漠 2026-03-21 | 3/150 |
|
|
|
[考研] 286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！ +4 | lemonzzn 2026-03-17 | 8/400 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-20 | 7/350 |
|
|
|
[考研] 一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑 +3 | 收到VS 2026-03-21 | 3/150 |
|
|
|
[考研] 299求調(diào)劑 +5 | shxchem 2026-03-20 | 7/350 |
|
|
|
[考研] 266求調(diào)劑 +3 | 哇呼哼呼哼 2026-03-20 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | 白QF 2026-03-21 | 3/150 |
|
|
|
[考研] 301求調(diào)劑 +10 | yy要上岸呀 2026-03-17 | 10/500 |
|
|
|
[考研] 初始318分求調(diào)劑（有工作經(jīng)驗(yàn)） +3 | 1911236844 2026-03-17 | 3/150 |
|
|
|
[考研] 332求調(diào)劑 +4 | ydfyh 2026-03-17 | 4/200 |
|
|
|
[考研] 321求調(diào)劑 +9 | 何潤(rùn)采123 2026-03-18 | 11/550 |
|
|
|
[考研] 329求調(diào)劑 +9 | 想上學(xué)吖吖 2026-03-19 | 9/450 |
|
|
|
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5 | Charlieyq 2026-03-19 | 5/250 |
|
|
|
[考研] 【同濟(jì)軟件】軟件（085405）考研求調(diào)劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|