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


/* DebugInput  */
/*             */
/* Display the input data */
/* seed: seed                                                                    */
/* grid: structure defining the actual grid                                      */
/* filename: name of files                                                       */
/* variogram: struture defining the variogram model                              */
/* stat: struture defining the mean and the variance of permeability realization */
/* pression: structure defining the gradient pressure                            */

void debuginput(long *seed,struct grid_mod *grid,string filename[8],struct vario_mod *variogram,struct statistic_mod *stat,struct pressure_mod *pression,int *Ksolver,int *genere, int *gwnwrite)
{
  int i;


  /* debug du 8/7/2002 */
  printf("\n\n");
  
  printf("Starting seed (integer): %d\n",(*seed));
  printf("Number of cells along the X axis: %d\n",(*grid).NX);
  printf("Number of cells along the Y axis: %d\n",(*grid).NY);
  printf("Number of cells along the Z axis: %d\n",(*grid).NZ);
  printf("cell length along the X axis: %6.4f\n",(*grid).DX);
  printf("cell length along the Y axis: %6.4f\n",(*grid).DY);
  printf("cell length along the Z axis: %6.4f\n",(*grid).DZ);
  printf("Number of structures for the variogram: %d\n",(*variogram).Nvario);
  i=0;
  printf("Weight: %6.4f\n",(*variogram).var[i]);
  printf("Type of variogram: %d\n",(*variogram).vario[i]);
  printf("Exponent: %6.4f\n",(*variogram).alpha[i]);

  printf("Mean of the output realization: %15.8f\n",(*stat).mean[0]);
  printf("Variance of the output realization: %6.4f\n",(*stat).variance[0]);
  printf("Structure of the field (0-normal case 1-lognormal case 2-log10 case) : %d\n",(*stat).type);

  /*output files*/
  printf("output filename for permeability realization: %s\n",  filename[1]);
  printf("\n\n");
  if (*gwnwrite == 0)
    {
      printf("K field generation with Gaussian white noise!\n");
      printf("output filename for Gaussian white noise: %s\n",filename[0]);
    }
  printf("\n\n");
  if ((*Ksolver == 1) | (*Ksolver == 2))
    {
      printf("P field generation: %d/n",*Ksolver);
      printf("output filename for pressure realization: %s\n",  filename[2]);
      printf("output filename for pressure total realization: %s\n",  filename[3]);
      printf("output filename for x-velocity realization: %s\n",  filename[4]);
      printf("output filename for y-velocity realization: %s\n",  filename[5]);
      printf("output filename for z-velocity realization: %s\n",  filename[6]);
      printf("output filename for pressure gradient realization: %s\n",  filename[7]);
      
      /*Pressure data*/
      printf("Pressure gradient in x direction: %6.4f\n",(*pression).x);
      printf("Pressure gradient in y direction: %6.4f\n",(*pression).y);
      printf("Pressure gradient in z direction: %6.4f\n",(*pression).z);
    }
  printf("\n\n");
  
  return;
}