3-topshiriq

Download 2,33 Mb.

bet	4/5
Sana	02.07.2022
Hajmi	2,33 Mb.
	#730137

1 2 3 4 5

Bog'liq
3.4.5 topshiriq

4.MPI_Test ga misol.

3.MPI_Waitall ga misol.
#include "mpi.h"
#include
using namespace std;
int main(int argc, char**argv) {
int rank,flag, size, prev, next; int buf[2];
MPI_Request reqs[4]; MPI_Status status[4];
MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &size);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
prev = rank-1; next = rank + 1;
if (rank == 0) prev = size-1;
if (rank == size-1) next = 0;
MPI_Irecv(&buf[0], 1, MPI_INT, prev, 5, MPI_COMM_WORLD, &reqs[0]);
MPI_Irecv(&buf[1], 1, MPI_INT, next, 6, MPI_COMM_WORLD, &reqs[1]);
MPI_Isend(&rank, 1, MPI_INT, prev, 6, MPI_COMM_WORLD, &reqs[2]);
MPI_Isend(&rank, 1, MPI_INT, next, 5, MPI_COMM_WORLD, &reqs[3]);
MPI_Waitall(4,reqs,status);
cout << " process " << rank << " prev= " << buf[0] << " next= " << buf[1] << endl;
MPI_Finalize();
}

4.MPI_Test ga misol.
#include "mpi.h"
#include
using namespace std;
int main(int argc, char**argv){
int rank,flag; float a, b, c, d,f; MPI_Status status;
MPI_Request reqs;
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
a = 0.0; b = 0.0; c = 0.0; d = 0.0; f = 0.0;
if (rank == 0) {
b = 61.0;c = 3.0;
MPI_Send(&b, 1, MPI_INT, 1, 7, MPI_COMM_WORLD);
MPI_Recv(&a, 1, MPI_INT, 1, 7, MPI_COMM_WORLD, &status);
MPI_Irecv(&d, 1, MPI_INT, 2, 7, MPI_COMM_WORLD, &reqs);
MPI_Test(&reqs, &flag, &status); // bu yerda xabar qabul qilingani tekshirilyapti va qabul qilinganligi yoki yo'qligiga qarab shart bajarsak bo'ladi.
cout << "flag = " << flag << endl;
if (flag == 0) {
MPI_Wait(&reqs, &status);}
else { cout << "xabar qabul qilindi" << endl;}}
if (rank == 1) {
a = 29.0;
MPI_Recv(&b, 1, MPI_FLOAT, 0, 7, MPI_COMM_WORLD, &status);
MPI_Send(&a, 1, MPI_FLOAT, 0, 7, MPI_COMM_WORLD);}
if (rank == 2) {
d = 34*7;
MPI_Isend(&d, 1, MPI_FLOAT, 0, 7, MPI_COMM_WORLD, &reqs);}
cout << " process " << rank <<"a= "<Download 2,33 Mb.
Do'stlaringiz bilan baham:

1 2 3 4 5