/*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 "dxrk8o.h"
#include <stdio.h>
#include <stdlib.h>
void /*FUNCTION*/ dxrk8o(
double ts[],
double y[],
long idat[],
double dat[])
{
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	double *const Dat = &dat[0] - 1;
	long *const Idat = &idat[0] - 1;
	double *const Ts = &ts[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 DXRK8O  Krogh  Initial code.
	 *--D replaces "?": ?XRK8O
	 *
	 *  Dummy routine to print message if user has not setup correctly.
	 * */
	printf("You have neglected either to write the DXRK8O subprogram\n");
	printf("or to select reverse communication before invoking DXRK8\n");
	exit(0);
} /* end of function */