/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:07 */
/*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 "dxrk8f.h"
#include <stdio.h>
#include <stdlib.h>
void /*FUNCTION*/ dxrk8f(
double *t,
double y[],
double f[],
long idat[])
{
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	double *const F = &f[0] - 1;
	long *const Idat = &idat[0] - 1;
	double *const Y = &y[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.
	 *>> 1997-12-18 DXRK8F  Krogh  Initial code.
	 *--D replaces "?": ?XRK8F
	 *
	 *  Dummy routine to print message if user has not setup correctly.
	 *  First two executable statements are for constructing prototypes.
	 * */
	F[1] = *t*Y[1];
	*t = 0.e0;
	printf("You have neglected either to write the DXRK8F subprogram\n");
	printf("or to select reverse communication before invoking DXRK8\n");
	exit(0);
} /* end of function */