/*
 * creates binary example files for the MPI-2 I/O demo programs
 *
 *     IN1: 100 Integer       a[i]    = 100-i
 *     IN2  100x100 Integer   b[i][j] = 1000*i+j
 */

#include <stdio.h>

#define  FILE1   "IN1"
#define  SIZE1   100
#define  FILE2   "IN2"
#define  SIZE2   100


void main(int argc, char *argv[]) {

  FILE     *fp;
  int      a[SIZE1];
  int      b[SIZE2][SIZE2];
  int      i, j;

  /* File 1 */
  for (i=0;i<SIZE1;i++) {
    a[i] = SIZE1 - i;
  }

  fp = fopen(FILE1, "wb");
  fwrite(a, sizeof(int), SIZE1, fp); 
  fclose(fp);

  /* File 2 */
  for (i=0;i<SIZE2;i++) {
    for (j=0;j<SIZE2;j++) {
      b[i][j] = 1000*i+j;
    }
  }

  fp = fopen(FILE2, "wb");
  fwrite(b, sizeof(int), SIZE2*SIZE2, fp); 
  fclose(fp);

}