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