/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:05 */
/*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 "dintf.h"
#include <stdio.h>
#include <stdlib.h>
void /*FUNCTION*/ dintf(
double *answer,
double work[],
long iopt[])
{
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const Iopt = &iopt[0] - 1;
	double *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 DINTF  Krogh  Added ANSWER=0, for getting prototypes.
	 *>> 1994-10-20 DINTF  Krogh  Changes to use M77CON
	 *>> 1990-01-23 DINTF  CLL Added type stmts. Avoids msgs from compilers.
	 *>> 1988-06-07 DINTF  Snyder  Replaced " by '.
	 *>> 1987-08-14 DINTF  Snyder  Initial code.
	 *--D replaces "?": ?INTF, ?INT
	 *
	 *     Dummy DINTF subprogram that prints
	 *     'You have neglected either to write the DINTF subprogram'
	 *     'or to select reverse communication before invoking DINT.'
	 *     and then STOPs.
	 * */
	*answer = 0.e0;
	printf("You have neglected either to write the DINTF subprogram\n");
	printf("or to select reverse communication before invoking DINT*\n");
	exit(0);
} /* end of function */