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

int main(int argc,char **argv)
{
  int total_procs,rank,namelen,i;
  int n=10,m=11;
  char processor_name[MPI_MAX_PROCESSOR_NAME];
  char filename[256];
  FILE *fp1,*fp2;
           
  MPI_Status status;
  MPI_Init(&argc,&argv);
  MPI_Comm_size(MPI_COMM_WORLD,&total_procs);
  MPI_Comm_rank(MPI_COMM_WORLD,&rank);
  MPI_Get_processor_name(processor_name,&namelen);
            
  fprintf(stdout,"Process %d of %d is on %s \n",rank,total_procs,processor_name);
  fflush(stdout);
          
  if(rank==0)
    {
      MPI_Send(&n,1,MPI_INT,1,0,MPI_COMM_WORLD);
      fp1=fopen("n.xx","w");
      fprintf(fp1,"%d",n);
    }


  if(rank==1)
    {
      MPI_Recv(&n,1,MPI_INT,0,0,MPI_COMM_WORLD,&status);
      n=11;
      fp2=fopen("n.yy","w");
      fprintf(fp2,"%d",n);
      fclose(fp2);
    }
          
  MPI_Finalize();
  return 0;
}