/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:16 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_sfrenl s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_sfrenl.h"
/*     program DRSFRENL
 *>> 2001-05-25 DRSFRENL Krogh -- Added comma to format.
 *>> 1996-06-18 DRSFRENL Krogh Minor changes in formats for C conversion.
 *>> 1996-01-29 DRSFRENL WV Snyder Corrected formats
 *>> 1994-10-19 DRSFRENL Krogh  Changes to use M77CON
 *>> 1993-02-25 DRSFRENL CLL. Minor edits.  Deleted Format statements.
 *>> 1992-03-18 DRSFRENL WV Snyder Corrected failure to call SFRENS
 *>> 1992-03-18 DRSFRENL CLL Minor edits.
 *>> 1992-02-03 DRSFRENL WV Snyder JPL Original code.
 *
 *     Demonstration driver for Fresnel Integrals functions.
 *
 *     ------------------------------------------------------------------
 *--S replaces "?": DR?FRENL, ?FRENC, ?FRENS, ?FRENG, ?FRENF
 *     ------------------------------------------------------------------ */
 
int main( )
{
	long int i;
	float x, yc, yf, yg, ys;
 
 
	printf("           X         C(x)           S(x)           g(x)           f(x)\n");
	for (i = -12; i <= 12; i++)
	{
		x = 0.5*i;
		yc = sfrenc( x );
		ys = sfrens( x );
		yg = sfreng( x );
		yf = sfrenf( x );
		printf("%15.7e%15.7e%15.7e%15.7e%15.7e\n", x, yc, ys, yg, yf);
	}
	exit(0);
} /* end of function */