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

/* tests passive target RMA on 2 processes */

#define SIZE1 100
#define SIZE2 10000

int main(int argc, char *argv[]) 
{ 
  int rank, nprocs,  B[SIZE1], i,j;
    MPI_Win win;
    int errs = 0;
    float one=1.0;
 
    MPI_Init(&argc,&argv); 
    MPI_Comm_size(MPI_COMM_WORLD,&nprocs); 
    MPI_Comm_rank(MPI_COMM_WORLD,&rank); 

    if (nprocs != 2) {
        printf("Run this program with 2 processes\n");fflush(stdout);
        MPI_Abort(MPI_COMM_WORLD,1);
    }

    if (rank == 0) {
      for (i=0; i<SIZE1; i++) B[i] = 0.0;
        MPI_Win_create(B, SIZE1*sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);


        
        for (i=0; i<SIZE1; i++) {
            MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 0, 0, win);
            MPI_Get(B+i, 1, MPI_INT, 0, i, 1, MPI_INT, win);
            MPI_Win_unlock(0, win);
        }


        for (i=0; i<SIZE1; i++) 
                printf(" B[%d] is %d\n", i, B[i]);
        fflush(stdout);

    }
    else {  /* rank=1 */
      MPI_Win_create(NULL, 0,1, MPI_INFO_NULL, MPI_COMM_WORLD, &win);

       for (i=0; i<SIZE1; i+=2) {
            MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 1, 0, win);
            MPI_Put(&one, 1, MPI_INT, 0, i, 1, MPI_INT, win);
            MPI_Win_unlock(1, win);
        }
        

    }

    MPI_Win_free(&win); 
    MPI_Finalize(); 
    return errs; 
}