/* filewritem.c
 *
 * MPI-IO: each process writes to a (different) file
 *
 */

#include "mpi.h" 
#include <stdio.h> 
#define BUFSIZE 4

int main(int argc, char *argv[]) 
{ 
     int i, rank, buf[BUFSIZE]; 
     char fname[80];
     MPI_File fh; 

     MPI_Init(&argc, &argv); 
     MPI_Comm_rank(MPI_COMM_WORLD, &rank); 
     for (i=0; i<BUFSIZE; i++) 
          buf[i] = rank*BUFSIZE + i;
     sprintf(fname,"mydata.%d",rank);
     printf("fname = %s\n",fname);
     MPI_File_open(MPI_COMM_SELF, fname,
                   MPI_MODE_CREATE | MPI_MODE_WRONLY,
                   MPI_INFO_NULL, &fh); 
     MPI_File_write(fh, buf, BUFSIZE, MPI_INT, MPI_STATUS_IGNORE); 
     MPI_File_close(&fh); 
     MPI_Finalize(); 
     return 0; 
}