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