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); }
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); }
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); }
static void gfs_refine_write (GtsObject * object, FILE * fp) { fprintf (fp, "%s", object->klass->info.name); gfs_function_write (GFS_REFINE (object)->maxlevel, fp); }