| 查看: 1177 | 回复: 6 | ||
xianweiwang铁虫 (小有名气)
|
[求助]
这段并行程序有问题，不知道错在什么地方请大家看看！
|
|
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 运行结果是 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 这样看是进程的编号不对，不知道为什么这样！ |
回复此楼» 猜你喜欢
今天务委会开完了，明天出结果吗
已经有8人回复
-
在坚冰还盖着北海的时候，我看到了怒放的梅花。
已经有7人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有22人回复
-
某些机构，以效率低为荣，以效率低作为存在感
已经有9人回复
-
放榜前的不淡定
已经有18人回复
-
什么时候开奖？
已经有13人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有8人回复
-
没有任何消息-是不是就凉了
已经有10人回复
-
人气不行了
已经有11人回复
-
2026国自然函评费到账
已经有22人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求指导：想考2013年考研，但是不知道选什么专业....
已经有4人回复
- 求真相，大家看看这篇CCL英文文章是不是有问题
已经有19人回复
- 大家看看这几个B类错误会影响投稿吧
已经有3人回复
- 【求助】运行错误，大家看看问题在哪？
已经有7人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-01-13 13:41:14
xianweiwang
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.1
- 散金: 610
- 红花: 1
- 帖子: 60
- 在线: 45.9小时
- 虫号: 963122
- 注册: 2010-03-06
- 专业: 理论和计算化学
3楼2012-01-13 15:05:21
xianweiwang
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.1
- 散金: 610
- 红花: 1
- 帖子: 60
- 在线: 45.9小时
- 虫号: 963122
- 注册: 2010-03-06
- 专业: 理论和计算化学
4楼2012-01-13 15:08:30
5楼2012-01-16 04:31:45
xianweiwang
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.1
- 散金: 610
- 红花: 1
- 帖子: 60
- 在线: 45.9小时
- 虫号: 963122
- 注册: 2010-03-06
- 专业: 理论和计算化学
6楼2012-01-16 12:48:43
7楼2012-01-16 13:27:58
