发送/接收MPI-Fortran-Java

时间:2018-06-25 12:14:38

标签: java fortran mpi openmpi

我在Open-MPI和Java中有一个发送/接收实现。目标是将Fortran字符集发送给Java。 Java收到此String时,将输出以下结果。 Result send/receive

我的Fortran代码是:

program simple4 
  implicit none 
  include 'mpif.h' 

  integer ierr,my_rank,size 
  integer src, dest, tag, position, charSize 
  integer status(MPI_STATUS_SIZE) 
  CHARACTER*80 TEXT

  call mpi_init(ierr) 
  call mpi_comm_rank(MPI_COMM_WORLD,my_rank,ierr) 
  call mpi_comm_size(MPI_COMM_WORLD,size,ierr) 

  src = 0 
  dest = 1 
  tag = 999

  if(my_rank.eq.0) then
    position = 0 
    TEXT = "PRO" 
    call MPI_SEND(TEXT, 3, MPI_CHARACTER, dest, tag, MPI_COMM_WORLD, ierr) 
  else 
    print *, "Fortran process ", my_rank
  end if 

  call mpi_finalize(ierr)

end

我的Java代码是:

....
char[] textChar = new char[3];
MPI.COMM_WORLD.recv(textChar, 3, MPI.CHAR, sourceRank, messageTag);
String text = String.copyValueOf(textChar);
System.out.println("Java - Text receive: " + text);

我的代码有什么问题? Fortran和Java将无法通过这种方式进行通信吗?什么是另一种解决方案?

1 个答案:

答案 0 :(得分:1)

根本原因是CHARACTER中有Fortran ASCII,而String中有Java Unicode,因此涉及一些额外的步骤。

这是您可以使用Java进行的摘要

byte[] textByte = new byte[3];
MPI.COMM_WORLD.recv(textByte, 3, MPI.BYTE, sourceRank, messageTag);
String text = new String(textByte, java.nio.charset.Charset.forName("UTF-8"));
System.out.println("Java - Text receive: " + text);