Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. #include <mpi.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <time.h>
  5.  
  6. int main(int argc,char **argv)
  7. {
  8. MPI_Init ( &argc, &argv );
  9. int myid,i,tag;
  10. int randomDigits[10];
  11. int randomDigits_2[10];
  12. float randomDigits_3[10];
  13. MPI_Status status;
  14. srand(time(NULL));
  15. for ( i=0; i < 10; i++)
  16. {
  17. randomDigits[i] = rand() % 7; //0-6
  18. randomDigits_2[i] = 200 + rand() % 101;// 200-300
  19. randomDigits_3[i] = 0.01 * (rand() % 101); //0.01-1
  20. }
  21. tag=213;
  22. MPI_Comm_rank(MPI_COMM_WORLD,&myid);
  23. if (myid==0)
  24. {
  25. MPI_Send(&randomDigits,10,MPI_INT,1,tag,MPI_COMM_WORLD);
  26. printf("Process 0\n");
  27. for ( i = 0;i < 10; i++)
  28. printf("Massiv s 1 datchika[%d] = %d\n",i, randomDigits[i]);
  29. }
  30. if (myid==1)
  31. {
  32. MPI_Send(&randomDigits_2,10,MPI_INT,1,tag,MPI_COMM_WORLD);
  33. printf("Process 2\n");
  34. for ( i = 0;i < 10; i++)
  35. printf("Massiv s 2 datchika[%d] = %d\n",i, randomDigits_2[i]);
  36. }
  37. if (myid==2)
  38. {
  39. MPI_Send(&randomDigits_3,10,MPI_FLOAT,1,tag,MPI_COMM_WORLD);
  40. printf("Process 3\n");
  41. for ( i= 0;i < 10;i++)
  42. printf("Massiv s 3 datchika[%d] = %3.3f\n",i, randomDigits_3[i]);
  43. }
  44. printf("Process %d\n");
  45. MPI_Finalize();
  46. return 0;
  47. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement