Fortran90 風に書いたもの。 PROGRAM test1 USE mpi IMPLICIT NONE INTEGER :: istatus(MPI_STATUS_SIZE) INTEGER :: ierr, idest, itag = 0 INTEGER :: irank, nrank, isource, mess CHARACTER(LEN = 40) :: message CALL MPI_INIT( ierr ) CALL MPI_COMM_R…