3、nalize()MPI_Init用來初始化MPI執(zhí)行環(huán)境,建立多個(gè)MPI進(jìn)程之間的聯(lián)系,為后續(xù)通信做準(zhǔn)備。而MPI_Finalize則是結(jié)束MPI執(zhí)行環(huán)境。這兩個(gè)函數(shù)就是定義MPI程序的并行區(qū)的,除了檢測(cè)是否初始化的函數(shù)之外,不應(yīng)該在這兩個(gè)函數(shù)定義的區(qū)域外調(diào)用其它MPI函數(shù)。這兩個(gè)函數(shù)都返回整型值,標(biāo)識(shí)函數(shù)是否調(diào)用成功。intMPI_Comm_rank(MPI_Commcomm,int*rank)MPI_Comm_rank函數(shù)用來標(biāo)識(shí)各個(gè)MPI進(jìn)程,獲取調(diào)用該函數(shù)進(jìn)程的進(jìn)程號(hào),將自身與其他進(jìn)程區(qū)分。MPI_Comm_rank返回整型的錯(cuò)誤值,需要提供兩個(gè)參數(shù):
4、MPI_Comm類型的通信域,標(biāo)識(shí)參與計(jì)算的MPI進(jìn)程組。上面例子中使用的是MPI_COMM_WORLD,這個(gè)進(jìn)程組是MPI實(shí)現(xiàn)預(yù)先定義好的進(jìn)程組,指的是所有MPI進(jìn)程所在的進(jìn)程組。如果想要申請(qǐng)自己的特殊的進(jìn)程組,則需要通過MPI_Comm定義并通過其它MPI函數(shù)生成。&rank返回調(diào)用進(jìn)程中的標(biāo)識(shí)號(hào)。intMPI_Comm_size(MPI_Commcomm,int*size)MPI_Comm_size函數(shù)用來獲取指定通信域的進(jìn)程個(gè)數(shù),確定自身需要完成的任務(wù)數(shù)。MPI_Comm類型的通信域,標(biāo)識(shí)參與計(jì)算的MPI進(jìn)程組。上面的例子中用的是MPI_COMM_WO
5、RLD。&size返回相應(yīng)進(jìn)程組中的進(jìn)程數(shù)。intMPI_Send(void*buf,intcount,MPI_Datatypedatatype,intdest,inttag,MPI_Commcomm)MPI_Send函數(shù)用于發(fā)送一個(gè)消息到目標(biāo)進(jìn)程。通信域中的dest進(jìn)程發(fā)送數(shù)據(jù),數(shù)據(jù)存放在buf中,類型是datatype,個(gè)數(shù)是count,這個(gè)消息的標(biāo)志是tag,用以和本進(jìn)程向同一目的進(jìn)程發(fā)送的其它消息區(qū)別開來。intMPI_Recv(void*buf,intcount,MPI_Datatypedatatype,intsource,inttag,MPI_Co
6、mmcomm,MPI_Status*status)MPI_Recv函數(shù)用于從指定進(jìn)程接收一個(gè)消息。它的含義是進(jìn)程從comm域中source進(jìn)程接收標(biāo)簽號(hào)為tag的數(shù)據(jù),并保存到buf中。接收緩沖區(qū)buf的大小不能小于發(fā)送過來的消息的長(zhǎng)度。否則會(huì)由于數(shù)組越界導(dǎo)致程序出錯(cuò)。主進(jìn)程if(process_id==0){row_aver=N/slave_num;remainder=N%slave_num;offset=0;for(dest=1;dest<=slave_num;dest++){rows=(dest<=remainder)?row_aver+1:row_av
7、er;printf("sending%drowstoprocess%d",rows,dest);MPI_Send(&offset,1,MPI_INT,dest,FROM_MASTER,MPI_COMM_WORLD);MPI_Send(&rows,1,MPI_INT,dest,FROM_MASTER,MPI_COMM_WORLD);MPI_Send(&A[offset][0],rows*N,MPI_INT,dest,FROM_MASTER,MPI_COMM_WORLD);MPI_Send(&B,N*N,MPI_INT,dest,FROM_MASTER,MPI
8、_COMM_WORLD);offset