Guest User

Untitled

a guest
Jul 19th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.74 KB | None | 0 0
  1. [gauss:31436] *** Process received signal ***
  2.  
  3. [gauss:31436] Signal: Segmentation fault (11)
  4.  
  5. [gauss:31436] Signal code: Invalid permissions (2)
  6.  
  7. [gauss:31436] Failing at address: 0x400960
  8.  
  9. [gauss:31436] [ 0] /lib64/libpthread.so.0(+0xf370)[0x2aaaaafae370]
  10.  
  11. [gauss:31436] [ 1] /cm/shared/apps/openmpi/gcc/64/1.10.3/lib64/openmpi/mca_pml_ob1.so(mca_pml_ob1_recv+0xc9)[0x2aaab0e38349]
  12.  
  13. [gauss:31436] [ 2] /cm/shared/apps/openmpi/gcc/64/1.10.3/lib64/libmpi.so.12(MPI_Recv+0x13c)[0x2aaaaad337bc]
  14.  
  15. [gauss:31436] [ 3] lab2[0x400b21]
  16.  
  17. [gauss:31436] [ 4] /lib64/libc.so.6(__libc_start_main+0xf5)[0x2aaaab1dcb35]
  18.  
  19. [gauss:31436] [ 5] lab2[0x400989]
  20.  
  21. [gauss:31436] *** End of error message ***
  22.  
  23.  
  24.  
  25. #include <stdio.h>
  26. #include <string.h>
  27. #include <mpi.h>
  28.  
  29. int main(int argc, char* argv[])
  30. {
  31. int my_rank;
  32. int msgtag = 0;
  33. int x;
  34. int my_rank_n = 0;
  35. int sum_rank;
  36. int p;
  37. MPI_Status *status;
  38.  
  39. MPI_Init(&argc, &argv);
  40. MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
  41. MPI_Comm_size(MPI_COMM_WORLD, &p);
  42. for (int i = 0; i < p; i++)
  43. {
  44. if (my_rank == 0)
  45. {
  46. x = 10;
  47. MPI_Send(&x, 1, MPI_INT, 1, msgtag, MPI_COMM_WORLD);
  48. }
  49. else if (my_rank == 1)
  50. {
  51. MPI_Recv(&x, 1, MPI_INT, 0, msgtag, MPI_COMM_WORLD, status);
  52. }
  53.  
  54. MPI_Bcast(&x, 1, MPI_INT, msgtag, MPI_COMM_WORLD);
  55. }
  56.  
  57. if(my_rank == 2)
  58. {
  59. printf("X is %dn",x);
  60. }
  61.  
  62.  
  63.  
  64. for (int i = 0; i < p; i++)
  65. {
  66. my_rank_n = my_rank;
  67. MPI_Reduce(&my_rank_n, &sum_rank, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
  68. }
  69.  
  70. if(my_rank == 0)
  71. {
  72. printf("Sum of Rank is %dn", sum_rank);
  73. }
  74.  
  75. MPI_Finalize();
  76. return 0;
  77. }
Add Comment
Please, Sign In to add comment