/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:09 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include "sintf.h"
#include <stdio.h>
#include <stdlib.h>
void /*FUNCTION*/ sintf(
float *answer,
float work[],
long iopt[])
{
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const Iopt = &iopt[0] - 1;
	float *const Work = &work[0] - 1;
		/* end of OFFSET VECTORS */
 
	/* Copyright (c) 1996 California Institute of Technology, Pasadena, CA.
	 * ALL RIGHTS RESERVED.
	 * Based on Government Sponsored Research NAS7-03001.
	 *>> 1996-04-26 SINTF  Krogh  Added ANSWER=0, for getting prototypes.
	 *>> 1994-10-20 SINTF  Krogh  Changes to use M77CON
	 *>> 1990-01-23 SINTF  CLL Added type stmts. Avoids msgs from compilers.
	 *>> 1988-06-07 SINTF  Snyder  Replaced " by '.
	 *>> 1987-08-14 SINTF  Snyder  Initial code.
	 *--S replaces "?": ?INTF, ?INT
	 *
	 *     Dummy SINTF subprogram that prints
	 *     'You have neglected either to write the SINTF subprogram'
	 *     'or to select reverse communication before invoking SINT.'
	 *     and then STOPs.
	 * */
	*answer = 0.e0;
	printf("You have neglected either to write the SINTF subprogram\n");
	printf("or to select reverse communication before invoking SINT*\n");
	exit(0);
} /* end of function */