fork download
  1. l#include<stdio.h>
  2. #include<mpi.h>
  3. int main(void)
  4. {
  5. int comm_sz;
  6. int my_rank;
  7. int i,temp,j,n;
  8. int msg[10];
  9. MPI_Init(NULL,NULL);
  10. MPI_Comm_size(MPI_COMM_WORLD,&comm_sz);
  11. MPI_Comm_rank(MPI_COMM_WORLD,&my_rank);
  12. if(my_rank==0)
  13. {
  14. printf("enter numbers");
  15. for(i=0;i<5;i++)
  16. scanf("%d",&msg[i]);
  17. MPI_Send(&msg,5,MPI_INT,1,1,MPI_COMM_WORLD);
  18. }
  19. else if(my_rank==1)
  20. {
  21. int sum=0;
  22. MPI_Recv(&msg,5,MPI_INT,0,1,MPI_COMM_WORLD,MPI_STATUS_IGNORE);
  23. printf("\n message received");
  24. for(i=0;i<5;i++)
  25. {
  26. for(j=i+1;j<5;j++)
  27. {
  28. if(msg[i]>msg[j])
  29. {
  30. temp=msg[i];
  31. msg[i]=msg[j];
  32. msg[j]=temp;
  33. }
  34. }
  35. printf("\n Sorted Order=%d",msg[i]);
  36. }
  37. }
  38. MPI_Finalize();
  39. return 0;
  40. }
Success #stdin #stdout #stderr 0.32s 40488KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error: object 'l' not found
Execution halted