/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:12 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_dsi s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_dsi.h"
 
int main( )
{
	long int i;
	double x;
 
	/*>> 1994-10-19 DRDSI   Krogh  Changes to use M77CON
	 *>> 1991-11-19  DRDSI   CLL
	 *>> 1989-04-26  DRDSI   Snyder at JPL, Original Code
	 *--D replaces "?":  DR?SI, ?CI, ?CIN, ?SI
	 *
	 *     Demonstration driver for Sine and Cosine integrals.
	 * */
 
	/*     Print values of Si(x), Ci(x) and Cin(x)
	 *     for X = 1.0 (1.0) 15.0
	 * */
	printf("  X           Si(x)           Ci(x)           Cin(x)\n\n");
	for (i = 1; i <= 15; i++)
	{
		x = (double)( i );
		printf("%4.0f%16.7f%16.7f%16.7f\n", x, dsi( x ), dci( x ), dcin( x ));
	}
	exit(0);
} /* end of function */