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 ddasco(double*,long,long,double[],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 ddasj(long,long*,double*,double[],double[],double[],double,double[],double[],double[],long[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long*);
void ddaslv(long,long*,double*,double[],double[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long[],double[]);
double ddasnm(long,double[],double[],double[],long[]);