在fortran中使用MPI_PUT，使用c_loc可以使不同的等级产生不同的位移

program mpi_put_example
  use mpi
  implicit none
  
  integer :: rank, size, target_rank, data
  integer(kind=c_ptr) :: target_disp
  integer, dimension(MPI_STATUS_SIZE) :: status
  
  call MPI_INIT(ierr)
  call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
  call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)
  
  ! 设置目标进程的等级
  target_rank = 1
  
  ! 设置需要发送的数据
  data = rank
  
  ! 获取目标进程的位移地址
  target_disp = c_loc(data)
  
  ! 发送数据到目标进程的指定位置
  call MPI_PUT(data, 1, MPI_INTEGER, target_rank, target_disp, 1, MPI_INTEGER, MPI_COMM_WORLD, ierr)
  
  ! 等待数据传输完成
  call MPI_Win_fence(MPI_MODE_NOPRECEDE, MPI_WIN_NULL, ierr)
  
  ! 打印接收到的数据
  if (rank == target_rank) then
    print *, "Received data:", data
  end if
  
  ! 完成MPI操作
  call MPI_FINALIZE(ierr)
  
end program mpi_put_example