/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:54 */
/*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 "sdasf.h"
#include <stdlib.h>
void /*FUNCTION*/ sdasf(
float t,
float y[],
float yprime[],
float delta[],
float d[],
long ldd,
float c,
long ires,
float rwork[],
long iwork[])
{
	static long mact[5]={52,8,0,1,51};
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	float *const D = &d[0] - 1;
	float *const Delta = &delta[0] - 1;
	long *const Iwork = &iwork[0] - 1;
	long *const Mact = &mact[0] - 1;
	float *const Rwork = &rwork[0] - 1;
	float *const Y = &y[0] - 1;
	float *const Yprime = &yprime[0] - 1;
		/* end of OFFSET VECTORS */
 
	/* Copyright (c) 2006, Math a la Carte, Inc.
	 *>> 2008-10-24 sdasf Krogh Shortened line 1 to 72 cols., declared IRES.
	 *>> 2008-10-01 sdasf Hanson added row dimension argument.
	 *>> 2001-12-15 sdasf Krogh  Initial code.
	 *--S Replaces "?": ?dasf, ?daslx
	 *
	 * This is a dummy routine that can be used when all communication
	 * with SDASLX uses reverse communication.  It should never actually
	 * get called..
	 * */
	mess( mact, "SDASLX$BYou either need to code your own subroutine SDASF or you did not set up your reverse communication correctly."
	 ,41+52+24+1, iwork );
	return;
} /* end of function */