刚接触fortran和mpi，求助mpi_sendrecv的问题

bread31

一、在不使用if语句的时候，结果只有rank=0的输出，而rank=1堵死了

[Fortran] 纯文本查看 复制代码

    program main   
    implicit none
    include 'mpif.h'
    integer rank,ierr,status(mpi_status_size)
    integer i,j
    i=3
    j=5
    call mpi_init(ierr)
    call mpi_comm_rank(mpi_comm_world,rank,ierr)
    call mpi_send(i,1,mpi_integer,1,99,mpi_comm_world,ierr)
    write(*,1) rank,i,j
    call mpi_recv(j,1,mpi_integer,0,99,mpi_comm_world,status,ierr)
    write(*,1) rank,i,j
1  format(1x,'rank=',i3,5x,'i=',i3,5x,'j=',i3)
    call mpi_finalize(ierr)
    end

二、使用mpi_sendrecv时无论时卡住，无输出；不过如果将发送地址和接收地址都设置成0，倒是可以实现赋值功能(╯‵□′)╯

[Fortran] 纯文本查看 复制代码

    program main
    include 'mpif.h'
    integer rank,ierr,status(mpi_status_size)
    integer i,j
    i=3
    j=5
    call mpi_init(ierr)
    call mpi_comm_rank(mpi_comm_world,rank,ierr)
    call mpi_sendrecv(i,1,mpi_integer,1,99,j,1,mpi_integer,0,99,mpi_comm_world,status,ierr)
    write(*,1) rank,i,j
1  format(1x,'rank=',i3,'i=',i3,'j=',i3)
    call mpi_finalize(ierr)
    end

另外求大师推荐几本合适的书，方便初学者自学。谢谢大家！

bread31

珊瑚虫 发表于 2015-11-20 10:51
（1） 新手推荐都志辉的书《高性能计算之并行编程技术-MPI并行程序设计》 百度很容易下到
（2） 第一个程序 ...

非常感谢！第一个程序我理解问题所在了，但是第二个的问题通常都是怎么解决的啊，send和recv在同一个指令里，也没法用if呀……

bread31

珊瑚虫 发表于 2015-11-20 10:59
要看你实现什么样的功能，请先说清楚你要实现的功能。

初学者试指令，只是想实现把0的i发送给1的j……

bread31

珊瑚虫 发表于 2015-11-20 11:14
不喜欢用if那就用select case 吧,下面的程序完成的工作是：
（1）进程0给进程1发i，同时用j 接收进程1的数 ...

可能我还是没明白sendrecv指令的用法……我先去看看您推荐的那本书，谢谢啦！

bread31

珊瑚虫 发表于 2015-11-20 11:29
就是说如果上面的程序没有用sendrecv 的话可以写成下面的形式（1），形式结果也是“对”的，但是不安全的， ...

明白了，我是把sendrecv的意义给搞错了。谢谢指点！