/*ARGSUSED*/
LOCAL void fprint_ConstantFlowRegion_data(
FILE *file,
FlowSpecifiedRegion *fsr,
Front *fr)
{
ConstantFlowRegion *cfr = (ConstantFlowRegion*)fsr;
f_fprint_FlowSpecifiedRegion_data(file,fsr,fr);
(void) fprintf(file,"Constant State Data\n");
fprint_state_data(file,cfr->state,fr->interf);
} /*end fprint_ConstantFlowRegion_data*/
EXPORT void g_fprint_tdp_boundary_state_data(
FILE *file,
INTERFACE *intfc,
BOUNDARY_STATE *bstate)
{
FD_DATA *fd_data = (FD_DATA*)bstate->_boundary_state_data;
(void) f_fprint_boundary_state_data(file,intfc,bstate);
(void) fprintf(file,"Rise time = %g\n",fd_data->tr);
(void) fprintf(file,"Peak time = %g\n",fd_data->tp);
(void) fprintf(file,"Shut-off time = %g\n",fd_data->ts);
(void) fprintf(file,"Ambient pressure = %g\n",fd_data->pr_a);
(void) fprintf(file,"Peak pressure = %g\n",fd_data->pr_p);
/* Feb 19 2004: print reference state */
if (fd_data->state != NULL)
{
(void) fprintf(file,"Reference state:\n");
Energy(fd_data->state)=energy(fd_data->state);
set_type_of_state(fd_data->state,GAS_STATE);
fprint_state_data(file,fd_data->state,intfc);
}
} /* end g_fprint_tdp_boundary_state_data */
