//*使用MPI_Sendrecv（）MPI_Send（）MPI_Recv（）實現MPI_Alltoall*//
#include?“mpi.h“
#include?“stdio.h“

#define??maxlen?10
//ALLtoAll?函數
int??My_Alltoall（int??*sendBufferint?sendcntMPI_Datatype?sendtype
?????????????????int?*receiveBufferint?recvcntMPI_Datatype?recvtypeMPI_Comm?commint?rankint?size）
{
??int?i;
??int?j;
??MPI_Status?status;

??if（size!=sendcnt||sendtype!=recvtype）
??????return?0;
??for（i=0;i??{
?????if（rank==i）
?????{
???????MPI_Sendrecv（&sendBuffer[i]1sendtypei99&receiveBuffer[i]1recvtypei99comm&status）;
?????}
?????else
?????{
???????MPI_Send（&sendBuffer[i]1sendtypeiicomm）;
???????MPI_Recv（&receiveBuffer[i]1recvtypeirankcomm&status）;
?????}

?}
return?1;

}

int?main（int?argcchar?*argv[]）
{
???int?ranksize;
???MPI_Status?status;


???int?sendBuffer[maxlen]receiveBuffer[maxlen];
???int?ij;
???int?count;

???MPI_Init（&argc&argv）;
???MPI_Comm_rank（MPI_COMM_WORLD&rank）;
???MPI_Comm_size（MPI_COMM_WORLD&size）;
	//判斷進程數是否合法
????if（?size??10?）
?????{?if（?rank?==?0?）?printf（“Please?input?a??number?between?1-10\n“）;
???????MPI_Finalize（）;
???????return?0;
??????}
???count=size;

???for（i=0;i???{
???????sendBuffer[i]=（rank+1）*（i+1）;?//初始化發送緩沖區
???????receiveBuffer[i]=0;					?//初始化接收緩沖區
???}


???My_Alltoall（sendBuffercountMPI_INTreceiveBuffercountMPI_INTMPI_COMM_WORLDranksize）;

???if（rank==0）
???{
?????for（i=0;i?????{
???????printf（“%d\t“receiveBuffer[i]）;
?????}
??}

???MPI_Finalize（）;
???return?（0）;
}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2019-04-28?17:13??最全并行計算資料\
?????文件????????1553??2019-03-12?21:29??最全并行計算資料\1.MyAlltoall.c
?????文件????????1266??2010-06-09?14:13??最全并行計算資料\2.Lower.c
?????文件????????1409??2010-06-08?16:33??最全并行計算資料\3.myfox.c
?????文件?????????755??2010-06-09?15:34??最全并行計算資料\4.spit.c
?????文件????58510968??2019-03-08?21:31??最全并行計算資料\C++?AMP??用Visual?C++加速大規模并行計算_（美）格雷戈里，（美）米勒著2014.04北京：人民郵電出版社_P300_13493581.pdf
?????文件????????7418??2018-10-18?15:35??最全并行計算資料\CSharpPathfind_src.zip
?????文件????15147009??2019-03-08?21:38??最全并行計算資料\cudaCuts.zip
?????文件???????10587??2010-06-06?16:39??最全并行計算資料\exams.rar
?????文件??????648817??2019-03-14?20:01??最全并行計算資料\MPI.pdf
?????文件?????5024074??2010-06-05?09:31??最全并行計算資料\MPI.rar
?????文件??????943249??2010-06-01?22:44??最全并行計算資料\mpi并行編程技術郁志輝.pdf
?????文件?????8182593??2019-03-14?10:33??最全并行計算資料\mpj-v0_44.zip
?????文件?????2359753??2019-03-14?09:50??最全并行計算資料\Parallel?Computing?in?Java.pdf
?????目錄???????????0??2019-04-28?17:13??最全并行計算資料\另一版本\
?????文件????????2051??2010-06-08?16:36??最全并行計算資料\另一版本\myall.c
?????文件????????1409??2010-06-08?16:33??最全并行計算資料\另一版本\myfox.c
?????文件?????????799??2010-06-08?16:30??最全并行計算資料\另一版本\mygroup.c
?????文件????????1045??2010-06-08?16:27??最全并行計算資料\另一版本\mysum.c
?????文件????????2514??2010-06-08?16:34??最全并行計算資料\另一版本\xiti5_2.c
?????文件???????12947??2019-04-26?10:40??最全并行計算資料\復習要求.docx
?????文件?????????247??2010-06-09?13:46??最全并行計算資料\并行計算復習提綱.txt
?????目錄???????????0??2019-04-28?17:13??最全并行計算資料\用于估計對稱矩陣特征值的串行和并行（MPI）\
?????文件???????12050??2019-03-14?19:36??最全并行計算資料\用于估計對稱矩陣特征值的串行和并行（MPI）\jacobi.cpp
?????文件?????????357??2019-03-14?19:37??最全并行計算資料\用于估計對稱矩陣特征值的串行和并行（MPI）\jacobi.h
?????文件????????1805??2019-03-14?19:37??最全并行計算資料\用于估計對稱矩陣特征值的串行和并行（MPI）\main.cpp
?????文件??????169691??2019-03-14?19:46??最全并行計算資料\用于估計對稱矩陣特征值的串行和并行（MPI）\mpi.h
?????文件?????4705792??2019-02-28?11:09??最全并行計算資料\第2講平行平臺.ppt
?????文件?????1789752??2019-03-08?10:50??最全并行計算資料\第3講算法基礎.pptx
?????文件?????1004544??2019-03-14?16:29??最全并行計算資料\第4講并行算法的一般設計策略.ppt
?????文件?????2723840??2019-02-28?12:49??最全并行計算資料\第5講?并行算法的設計技術.ppt
............此處省略2個文件信息