Parallel dasturlash

MPI yordamida birinchi parallel dastur. Koʻrib chiqilgan funksiyalar toʻplami parallel dasturlarni ishlab chiqish uchun yetarli boʻlib chiqadi.
Quyidagi dastur C algoritmik tili uchun standart boshlangʻich misoldir.


#include
#include "mpi.h"
int main(int argc, char* argv[]){
int ProcNum, ProcRank, RecvRank;
MPI_Status Status;
MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &ProcNum); MPI_Comm_rank(MPI_COMM_WORLD, &ProcRank);
if ( ProcRank == 0 ){
// Faqat 0 darajali jarayon tomonidan bajariladigan amallar
printf ("\n Hello from process %3d", ProcRank);
for ( int i=1; i

MPI_Recv(&RecvRank, 1, MPI_INT, MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &Status);


printf("\n Hello from process %3d", RecvRank);
}
}
else
MPI_Send(&ProcRank,1,MPI_INT,0,0,MPI_COMM_WORLD);
MPI_Finalize();
return 0;
}

Dastur matnidan kelib chiqqan holda, har bir jarayon oʻz darajasini belgilaydi, shundan soʻng dasturdagi harakatlar ajratiladi. 0 darajali jarayondan tashqari barcha jarayonlar oʻz darajalarining qiymatini nol jarayonga oʻtkazadi. 0 darajasiga ega boʻlgan jarayon avval oʻz darajasining qiymatini chop etadi, soʻngra jarayonlarning darajalari boʻlgan xabarlarni ketma-ket qabul qiladi va ularning qiymatlarini ham chop etadi. Shuni ta’kidlash kerakki, xabarlarni qabul qilish tartibi oldindan belgilanmagan va parallel dasturni bajarish shartlariga bogʻliq (bundan tashqari, bu tartib ishga tushirishdan boshlab oʻzgarishi mumkin). Shunday qilib, 0 ni chop etish jarayoni natijalarining mumkin boʻlgan varianti quyidagicha boʻlishi mumkin (toʻrt jarayonning parallel dasturi uchun):

Hello from process 0
Hello from process 2