type efield
double precision::r1,r2,i1,i2
endtype
type(efield),dimension(:,:),allocatable::e
call MPI_Isend(e(pml_cell,Ny-ypml_cell+1:Ny-1),ypml_cell-1,MPI_DOUBLE_PRECISION,pairx2,0,MPI_COMM_WORLD,request,ierr)
print*,'rank02',ierr
li913 发表于 2024-5-27 09:17
mpi可以发送派生类型(成员不能是动态数组或指针),但是需要自己定义一个mpi_type. 了解一下 MPI_Type_crea ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |