Parallel dasturlash

ProcessTermination(pMatrix, pVector, pResult, pProcRows,
pProcResult);


MPI_Finalize();
}


2. ProcessInitialization funksiyasi. Bu funksiya A matritsasi va b vektori uchun oʻlcham va elementlarni oʻrnatadi. A va vektor b matritsasi uchun qiymatlar RandomDataInitialization funksiyasida aniqlanadi.


// Xotirani ajratish va dastlabki ma’lumotlarni initsializatsiyalash funksiyasi
void ProcessInitialization (double* &pMatrix, double* &pVector,
double* &pResult, double* &pProcRows, double* &pProcResult,
int &Size, int &RowNum) {
int RestRows;
// Hali ajratilmagan matritsa qatorlari soni
int i;


if (ProcRank == 0) {
do {
printf("\nMatritsa oʻlchamlarini kiriting: ");
scanf("%d", &Size);
if (Size < ProcNum) {
printf("Matritsaning oʻlchami jarayonlar sonidan oshib ketdi!\n ");
}
}
while (Size < ProcNum);
}
MPI_Bcast(&Size, 1, MPI_INT, 0, MPI_COMM_WORLD);


RestRows = Size;
for (i=0; i

RestRows = RestRows-RestRows/(ProcNum-i);
RowNum = RestRows/(ProcNum-ProcRank);


pVector = new double [Size];
pResult = new double [Size];
pProcRows = new double [RowNum*Size];
pProcResult = new double [RowNum];


if (ProcRank == 0) {
pMatrix = new double [Size*Size];
RandomDataInitialization(pMatrix, pVector, Size);
}
}


3. DataDistribution funksiyasi. U b vektorini yuboradi va dastlabki A matritsasining qatorlarini hisoblash tizimining jarayonlari orasida taqsimlaydi. Shuni ta’kidlash kerakki, n matritsaning satrlari soni protsessorlar sonining p koʻpaytmasi boʻlmasa, jarayonlar uchun uzatiladigan ma’lumotlar miqdori boshqacha boʻlishi mumkin va xabarlarni uzatish uchun MPI kutubxonasidagi MPI_Scatterv funksiyasidan foydalanish kerak.