Example #1
0
static void gfs_init_wave_write (GtsObject * o, FILE * fp)
{
  (* GTS_OBJECT_CLASS (gfs_init_wave_class ())->parent_class->write) (o, fp);

  gfs_function_write (GFS_INIT_WAVE (o)->d, fp);
  gfs_function_write (GFS_INIT_WAVE (o)->hs, fp);
}
Example #2
0
static void gfs_source_darcy_write (GtsObject * o, FILE * fp)
{
  GfsSourceDarcy * s = GFS_SOURCE_DARCY (o);

  (* GTS_OBJECT_CLASS (gfs_source_darcy_class ())->parent_class->write) (o, fp);
  gfs_function_write (s->darcycoeff, fp);
  if (s->forchhicoeff)
    gfs_function_write (s->forchhicoeff, fp);
}
Example #3
0
static void gfs_porous_write (GtsObject * o, FILE * fp)
{
  /* call write method of parent */
    (* GTS_OBJECT_CLASS (gfs_porous_class ())->parent_class->write)(o, fp);
  /* do object specific write here */
  GfsPorous * por = GFS_POROUS (o);
  
  fputs (" {\n"
	 "  porosity =", fp);
  gfs_function_write (por->porosity, fp);
  fputs ("\n  K =", fp);
  gfs_function_write (por->K, fp);
  fputs("}\n ", fp);
}
Example #4
0
static void gfs_refine_write (GtsObject * object, FILE * fp)
{
  fprintf (fp, "%s", object->klass->info.name);
  gfs_function_write (GFS_REFINE (object)->maxlevel, fp);
}