/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:19 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_ssi s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_ssi.h"
 
int main( )
{
	long int i;
	float x;
 
	/*>> 1994-10-19 DRSSI   Krogh  Changes to use M77CON
	 *>> 1991-11-19  DRSSI   CLL
	 *>> 1989-04-26  DRSSI   Snyder at JPL, Original Code
	 *--S 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 = (float)( i );
		printf("%4.0f%16.7f%16.7f%16.7f\n", x, ssi( x ), sci( x ), scin( x ));
	}
	exit(0);
} /* end of function */