CGAL users discussion list

[Julia Fischer <>]

#include <stdio.h>
#include <mpi.h>
#include <stdlib.h>

#define NUM_ELEMENT 10

int main(int argc, char** argv)
{
   int i, id, num_procs, len; 
   char name[MPI_MAX_PROCESSOR_NAME];
   MPI_Win win;

   MPI_Init(&argc, &argv);
   MPI_Comm_rank(MPI_COMM_WORLD, &id);
   MPI_Comm_size(MPI_COMM_WORLD, &num_procs);
   MPI_Get_processor_name(name, &len);


   printf("Rank %d running on %s\n", id, name);
   int sizeWin=0;
   int *sharedbuffer;
   int *localbuffer;
   if (id==0){
      sizeWin=100;
      sharedbuffer=(int*)malloc(sizeof(int) * sizeWin );
  
   }
   else{
      sizeWin=0;
      sharedbuffer=(int*)malloc(sizeof(int) * sizeWin ); 
      localbuffer =(int*)malloc(sizeof(int) * NUM_ELEMENT );    
   }
  
   
  
   MPI_Win_create(sharedbuffer, sizeWin, sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);

   if(id==0){
        for (i = 0; i < NUM_ELEMENT; i++)
       {
          sharedbuffer[i] = 10*id + i;
          localbuffer[i] = 0;
       }
       printf("Rank %d sets data in the shared memory:", id);
          for (i = 0; i < NUM_ELEMENT; i++)
           printf(" %02d", sharedbuffer[i]);

       printf("\n");
    
  
   }


  


   MPI_Win_fence(0, win);
 

   if (id != 0)
       sleep(1);
      //MPI_Get(&localbuffer[0], NUM_ELEMENT, MPI_INT, id-1, 0, NUM_ELEMENT, MPI_INT, win);
   else
      MPI_Get(&localbuffer[0], NUM_ELEMENT, MPI_INT, num_procs-1, 0, NUM_ELEMENT, MPI_INT, win);

   MPI_Win_fence(0, win);

   printf("Rank %d gets data from the shared memory:", id);

   for (i = 0; i < NUM_ELEMENT; i++)
      printf(" %02d", localbuffer[i]);

     
   printf("\n");
 
 
 
   MPI_Win_free(&win);
   MPI_Finalize();
   return 0;
}