/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:15 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_scon s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_scon.h"
		/* PARAMETER translations */
#define	NMAX	6
		/* end of PARAMETER translations */
 
 
int main( )
{
	long int k, n;
	float coeff[NMAX-(0)+1];
 
	/*>> 2001-05-22 DRSCON Krogh Minor change for making .f90 version.
	 *>> 1996-06-25 DRSCON Krogh  Special code for C conversion.
	 *>> 1994-10-19 DRSCON Krogh  Changes to use M77CON
	 *>> 1994-08-09 DRSCON WVS    Remove '0' from formats
	 *>> 1992-03-09 DRSCON Krogh  Initial Code.
	 * Check program for converting between Chebyshev and monomial basis.
	 *--S replaces "?": DR?CON, ?CONCM, ?CONMC
	 * */
 
   printf("       ");
   for (k = 0; k <= NMAX; k++) printf("   X**%1ld", k);
   printf("\n");
	for (n = 0; n <= NMAX; n++)
	{
		/*      print '(7X, 9(:''    X**'',I1))', (K, K = 0, NMAX) */
		for (k = 0; k <= (n - 1); k++)
		{
			coeff[k] = 0.e0;
		}
		coeff[n] = 1.e0;
		sconcm( n, coeff );
		printf(" T%1ld", n);
		printf("(X) =");
		for (k = 0; k <= n; k++)
		{
			printf("%7.3f", coeff[k]);
		}
		printf("\n");
	}
   printf("\n      ");
   for (k = 0; k <= NMAX; k++) printf("   T%1ld(X)", k);
   printf("\n");
	for (n = 0; n <= NMAX; n++)
	{
		/*      print '(/, 6X, 9(:''   T'', I1, ''(X)''))', (K, K = 0, NMAX) */
		for (k = 0; k <= (n - 1); k++)
		{
			coeff[k] = 0.e0;
		}
		coeff[n] = 1.e0;
		sconmc( n, coeff );
		printf(" X**%1ld", n);
		printf(" =");
		for (k = 0; k <= n; k++)
		{
			printf("%8.5f", coeff[k]);
		}
		printf("\n");
	}
	exit(0);
} /* end of function */