void ddas1(double*,double[],double[],long,long*,
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],double*,double[],long*,
          double*,double[],double[],double[],long[],double[]);
void ddasdb(long,long,double,double[],double[],long[],double[],
	long[],long,double[],double[]);
void ddasf(double,double[],double[],double[],double[],long,double,
	long,double[],long[]);
void ddasin(double,double,double[],double[],long,long,double*,
	double[]);
void ddaslx(void(*)(),long,double*,double[],double[],double,long[],
	double[],double[],long*,double[],long,long[],long);
double ddasnm(long,double[],double[],double[],long[]);
void ddastp(double*,double[],double[],long,long*,
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],double*,double[],long*,
          double*,double[],double[],double[],long[],double[],double[],double[],double[],double[],double[],long*);
void ddaswt(long,long[],double[],double[],double[],double[],double[],
	long[]);
void dmess(long[],CHAR_INT,long[],double[]);