| 查看: 932 | 回复: 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 这样看是进程的编号不对，不知道为什么这样！ |
回复此楼» 猜你喜欢
一志愿北京化工大学材料与化工（085600）296求调剂
已经有22人回复
-
322求调剂：一志愿湖南大学 材料与化工（085600），已过六级。
已经有7人回复
-
332求调剂
已经有5人回复
-
310求调剂
已经有10人回复
-
26考研-291分-厦门大学（085601）-柔性电子学院材料工程专业求调剂
已经有5人回复
-
085600 材料与化工 329分求调剂
已经有15人回复
-
化学0703 调剂 306分 一志愿211
已经有8人回复
-
342求调剂
已经有4人回复
-
334分 一志愿武理 材料求调剂
已经有14人回复
-
材料科学与工程 317求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求指导：想考2013年考研，但是不知道选什么专业....
已经有4人回复
- 求真相，大家看看这篇CCL英文文章是不是有问题
已经有19人回复
- 大家看看这几个B类错误会影响投稿吧
已经有3人回复
- 【求助】运行错误，大家看看问题在哪？
已经有7人回复
xianweiwang
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.1
- 散金: 610
- 红花: 1
- 帖子: 60
- 在线: 45.9小时
- 虫号: 963122
- 注册: 2010-03-06
- 专业: 理论和计算化学
3楼2012-01-13 15:05:21
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
- 专业: 理论和计算化学
4楼2012-01-13 15:08:30
5楼2012-01-16 04:31:45
