#include <stdio.h>
#include <stddef.h>
#include <string.h>
#include <stdarg.h>
#include <stdlib.h>
#include <math.h>
#include "genlib.h"
#include "geostat.h"

/*writefile  */
/* write in the file "filename" the vector values of a */
/* realization_mod variable   */
/* filename: explicit         */
/* realin: structure defining a realization */

void writefile_bin(string filename, struct realization_mod *realin)
{
  FILE *fp;
  int i;
  double *prout;

  /*save the permeability realization*/
  fp = fopen(filename, "w");

  for (i=0;i<(*realin).n;i++)
    {
      prout=(*realin).vector;
      fwrite(&prout[i],sizeof(double),1,fp);
    }

  fclose(fp);
  return;
}