/*
 * The permission is granted to use the software as is and redistribute it in
 * its original and complete form. If you find this program useful and
 * publish results obtained by it, please cite the program as: Michael
 * Whitbeck, Desert Research Institute, 1991, "REACT - Program to solve
 * kinetic equations for chemical systems". Version 1.00, this code is
 * available from the authors or from Dr. Whitbeck.
 */

/*
 * write results
 */

#include "rxn.h"

void
wr_results(t, y, num_species)
	double          t, *y;
	int             num_species;
{
	int             i;

	fprintf(stdout, "%22.14e", t);
	for (i = 1; i <= num_species; i++)
		fprintf(stdout, " %22.14e", y[i]);
	fprintf(stdout, "\n");
}