/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:11 */
/*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 "sxrk8f.h"
#include <stdio.h>
#include <stdlib.h>
void /*FUNCTION*/ sxrk8f(
float *t,
float y[],
float f[],
long idat[])
{
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	float *const F = &f[0] - 1;
	long *const Idat = &idat[0] - 1;
	float *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 SXRK8F  Krogh  Initial code.
	 *--S 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 SXRK8F subprogram\n");
	printf("or to select reverse communication before invoking DXRK8\n");
	exit(0);
} /* end of function */